ikan Uploader :
Directory : /proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/
Upload File : |
| Current File : //proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/analyze.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\300\306!\207" [require semantic semantic/format semantic/ctxt semantic/scope semantic/sort semantic/analyze/fcn] 2)
#@50 Collection of any errors thrown during analysis.
(defvar semantic-analyze-error-stack nil (#$ . 604))
#@64 Push the error in ERR-DATA onto the error stack.
Argument ERR.
(defalias 'semantic-analyze-push-error #[(err) " B\211\207" [err semantic-analyze-error-stack] 2 (#$ . 712)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\210\314\303\315\316\317$\207" [defalias semantic-analyze-context-p eieio-make-class-predicate semantic-analyze-context semantic-analyze-context--eieio-childp eieio-make-child-predicate semantic-analyze-context-child-p make-obsolete "use (cl-typep ... 'semantic-analyze-context) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal nil ((bounds :initarg :bounds :type list :documentation "The bounds of this context.\nUsually bound to the dimension of a single symbol or command.") (prefix :initarg :prefix :type list :documentation "List of tags defining local text.\nThis can be nil, or a list where the last element can be a string\nrepresenting text that may be incomplete. Preceding elements\nmust be semantic tags representing variables or functions\ncalled in a dereference sequence.") (prefixclass :initarg :prefixclass :type list :documentation "Tag classes expected at this context.\nThese are classes for tags, such as 'function, or 'variable.") (prefixtypes :initarg :prefixtypes :type list :documentation "List of tags defining types for :prefix.\nThis list is one shorter than :prefix. Each element is a semantic\ntag representing a type matching the semantic tag in the same\nposition in PREFIX.") (scope :initarg :scope :type (or null semantic-scope-cache) :documentation "List of tags available in scopetype.\nSee `semantic-analyze-scoped-tags' for details.") (buffer :initarg :buffer :type buffer :documentation "The buffer this context is derived from.") (errors :initarg :errors :documentation "Any errors thrown an caught during analysis.")) (:documentation "Base analysis data for any context.")] 5)
#@63 Create a new object of class type `semantic-analyze-context'.
(defalias 'semantic-analyze-context #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-analyze-context] 4 (#$ . 2643)])
(function-put 'semantic-analyze-context 'compiler-macro 'semantic-analyze-context--anon-cmacro)
(defalias 'semantic-analyze-context--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!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\210\314\303\315\316\317$\207" [defalias semantic-analyze-context-assignment-p eieio-make-class-predicate semantic-analyze-context-assignment semantic-analyze-context-assignment--eieio-childp eieio-make-child-predicate semantic-analyze-context-assignment-child-p make-obsolete "use (cl-typep ... 'semantic-analyze-context-assignment) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (semantic-analyze-context) ((assignee :initarg :assignee :type list :documentation "A sequence of tags for an assignee.\nThis is a variable into which some value is being placed. The last\nitem in the list is the variable accepting the value. Earlier\ntags represent the variables being dereferenced to get to the\nassignee.")) (:documentation "Analysis class for a value in an assignment.")] 5)
#@74 Create a new object of class type `semantic-analyze-context-assignment'.
(defalias 'semantic-analyze-context-assignment #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-analyze-context-assignment] 4 (#$ . 4085)])
(function-put 'semantic-analyze-context-assignment 'compiler-macro 'semantic-analyze-context-assignment--anon-cmacro)
(defalias 'semantic-analyze-context-assignment--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!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\210\314\303\315\316\317$\207" [defalias semantic-analyze-context-functionarg-p eieio-make-class-predicate semantic-analyze-context-functionarg semantic-analyze-context-functionarg--eieio-childp eieio-make-child-predicate semantic-analyze-context-functionarg-child-p make-obsolete "use (cl-typep ... 'semantic-analyze-context-functionarg) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (semantic-analyze-context) ((function :initarg :function :type list :documentation "A sequence of tags for a function.\nThis is a function being called. The cursor will be in the position\nof an argument.\nThe last tag in :function is the function being called. Earlier\ntags represent the variables being dereferenced to get to the\nfunction.") (index :initarg :index :type integer :documentation "The index of the argument for this context.\nIf a function takes 4 arguments, this value should be bound to\nthe values 1 through 4.") (argument :initarg :argument :type list :documentation "A sequence of tags for the :index argument.\nThe argument can accept a value of some type, and this contains the\ntag for that definition. It should be a tag, but might\nbe just a string in some circumstances.")) (:documentation "Analysis class for a value as a function argument.")] 5)
#@75 Create a new object of class type `semantic-analyze-context-functionarg'.
(defalias 'semantic-analyze-context-functionarg #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-analyze-context-functionarg] 4 (#$ . 6080)])
(function-put 'semantic-analyze-context-functionarg 'compiler-macro 'semantic-analyze-context-functionarg--anon-cmacro)
(defalias 'semantic-analyze-context-functionarg--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!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\210\314\303\315\316\317$\207" [defalias semantic-analyze-context-return-p eieio-make-class-predicate semantic-analyze-context-return semantic-analyze-context-return--eieio-childp eieio-make-child-predicate semantic-analyze-context-return-child-p make-obsolete "use (cl-typep ... 'semantic-analyze-context-return) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (semantic-analyze-context) nil (:documentation "Analysis class for return data.\nReturn data methods identify the required type by the return value\nof the parent function.")] 5)
#@70 Create a new object of class type `semantic-analyze-context-return'.
(defalias 'semantic-analyze-context-return #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-analyze-context-return] 4 (#$ . 7355)])
(function-put 'semantic-analyze-context-return 'compiler-macro 'semantic-analyze-context-return--anon-cmacro)
(defalias 'semantic-analyze-context-return--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\301\302\305\306\307%\210\300\301\302\310\306\311%\210\300\312\302\313\302\314%\210\300\312\302\315\306\316%\210\300\312\302\317\306\320%\207" [cl-generic-define-method semantic-analyze-type-constraint nil ((context semantic-analyze-context) &optional desired-type) #[(context &optional desired-type) "\3031- :\205) @;\205) A@9\205) A@\205) \304 8<\205) \305 8<0\202/ \210\306)\205\322 \211A@)\307=\204O \211\310\311 \304 8)\n\"+;\203[ \307D\202\321 @;\203\234 \3121\216 :\205\212 @;\205\212 A@9\205\212 A@\205\212 \304 8<\205\212 \305 8<0\202\220 \210\306)\204\234 @\307D\202\321 \3131\311 :\205\305 @;\205\305 A@9\205\305 A@\205\305 \304 8<\205\305 \305 8<0\202\313 \210\306)\204\321 \306\207" [desired-type tag attribute (error) 2 3 nil type :type plist-get (error) (error)] 4 "Return a type constraint for completing :prefix in CONTEXT.\nOptional argument DESIRED-TYPE may be a non-type tag to analyze."] ((context semantic-analyze-context-functionarg)) t #[(#1=#:cl--cnm context) " \302 \303\"@\"\207" [#1# context eieio-oref argument] 5 "Return a type constraint for completing :prefix in CONTEXT."] ((context semantic-analyze-context-assignment)) #[(#2=#:cl--cnm context) " \302\303 \304\"!@\"\207" [#2# context reverse eieio-oref assignee] 6 "Return a type constraint for completing :prefix in CONTEXT."] semantic-analyze-interesting-tag ((context semantic-analyze-context)) #[(context) "\303\304\305\"!\211\203F @\30619 \n:\2055 \n@;\2055 \nA@9\2055 \nA@\2055 \307\n8<\2055 \310\n8<0\202; \210\311)\204F A\211\204 @)\207" [context prefix tag reverse eieio-oref :prefix (error) 2 3 nil] 5 "Return a tag from CONTEXT that would be most interesting to a user."] ((context semantic-analyze-context-functionarg)) #[(#3=#:cl--cnm context) " \206\n \302 \303\"\242\207" [#3# context eieio-oref :function] 3 "Try the base, and if that fails, return what we are assigning into."] ((context semantic-analyze-context-assignment)) #[(#4=#:cl--cnm context) " \206\n \302 \303\"\242\207" [#4# context eieio-oref :assignee] 3 "Try the base, and if that fails, return what we are assigning into."]] 6)
#@688 Attempt to find all tags in SEQUENCE.
Optional argument LOCALVAR is the list of local variables to use when
finding the details on the first element of SEQUENCE in case
it is not found in the global set of tables.
Optional argument SCOPE are additional terminals to search which are currently
scoped. These are not local variables, but symbols available in a structure
which doesn't need to be dereferenced.
Optional argument TYPERETURN is a symbol in which the types of all found
will be stored. If nil, that data is thrown away.
Optional argument THROWSYM specifies a symbol the throw on non-recoverable error.
Remaining arguments FLAGS are additional flags to apply when searching.
(defalias 'semantic-analyze-find-tag-sequence #[(sequence &optional scope typereturn throwsym &rest flags) "\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\370 %\202\317%)\207" [overload property mode symbol bind name semantic-analyze-find-tag-sequence nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-analyze-find-tag-sequence-default mode-local-active-mode major-mode #1=#:override sequence scope typereturn throwsym flags] 7 (#$ . 10115)])
(put 'semantic-analyze-find-tag-sequence 'mode-local-overload t)
#@379 Attempt to find all tags in SEQUENCE.
SCOPE are extra tags which are in scope.
TYPERETURN is a symbol in which to place a list of tag classes that
are found in SEQUENCE.
Optional argument THROWSYM specifies a symbol the throw on non-recoverable error.
Remaining arguments FLAGS are additional flags to apply when searching.
This function knows of flags:
`mustbeclassvariable'
(defalias 'semantic-analyze-find-tag-sequence-default #[(sequence &optional scope typereturn throwsym flags) "\306\211\211\211 \205\f \307 !\310\n>\205 \311 ) * + ,\312!\211+\203N \203@ + -\211 *\211 *A@)-*=\203K \306,+C*\202N \306++\204!,G\313U\205\\ . \203m \314,@. #\206t \315,@.\"\211+<\203\277 +@ *\3161\261 *:\205\255 *@;\205\255 *A@9\205\255 *A@\205\255 \317*8<\205\255 \320*8<0\202\263 \210\306)\203\277 \321+.\"++ *\3221\364 *:\205\360 *@;\205\360 *A@9\205\360 *A@\205\360 \317*8<\205\360 \320*8<0\202\366 \210\306)\204/\203\323/\324\"\210\202\325\326,@\"\210,A,+*B*\327+!),\203\263+\330 -\211 *\211 *A@)-*=\203H\331+\f\"\206M+\202M\332+\f\"\211 0\205W\3270! 1\306 2\3330 \"23 4\3342!\306 5\211 6\203\224,@6@\211 *@)\230\203\2136@5B56A\2116\204t5\237+\211+<\203\341+@ *\3351\325*:\205\321*@;\205\321*A@9\205\321*A@\205\321\317*8<\205\321\320*8<0\202\327\210\306)\203\341\321+!++ *\3361*:\205*@;\205*A@9\205*A@\205\317*8<\205\320*8<0\202\210\306)\2041,A\203,\325\326,@\"\210\2021,@+1\2067
\211\203\205+ *\3371q*:\205m*@;\205m*A@9\205m*A@\205m\317*8<\205m\320*8<0\202s\210\306)\203\205\340+!\204\205\341+\342
#\210+*B*0)B)\f\203\251\343\344\345\346)\"\" 7\347\f\3507#\210)+,A\211,\204&8\203\2778)\237L\210*\237.\207" [sequence scope flags tagclass miniscope fname nil clone mustbeclassvariable variable semanticdb-typecache-find 1 semantic-scope-find semantic-analyze-find-tag (error) 2 3 semantic-analyze-select-best-tag (error) throw "Cannot find definition" error "Cannot find definition for \"%s\"" semantic-tag-file-name type semantic-analyze-type semantic-analyze-tag-type semantic-analyze-scoped-type-parts semantic-something-to-tag-table (error) (error) (error) semantic-tag-in-buffer-p semantic--tag-put-property :filename apply append mapcar semantic-tag-type-members eieio-oset fullscope tagtype tag tmp s class lftagclass throwsym tmptype typefile slots semantic-case-fold case-fold-search result tags rawscope typereturn] 9 (#$ . 11868)])
#@440 Return the first tag found with NAME or nil if not found.
Optional argument TAGCLASS specifies the class of tag to return,
such as 'function or 'variable.
Optional argument SCOPE specifies a scope object which has
additional tags which are in SCOPE and do not need prefixing to
find.
This is a wrapper on top of semanticdb, semanticdb typecache,
semantic-scope, and semantic search functions. Almost all
searches use the same arguments.
(defalias 'semantic-analyze-find-tag #[(name &optional tagclass scope) ":\203 \202\f \306!\211<\203& \307 !\206z \310 \n\311#\312 \f\")\202z ;\205z \n\2054 \313\f\n#\211 \203@ \312
\f\"\202y \f\314=\203L \307!\202y \307!\211\203p \f\203l
\304 \211 \211 A@)*=\203p
\202y \312\315\316!\300\"\f\"))\207" [name namelst scope seq tagclass retlist semantic-analyze-split-name semanticdb-typecache-find semantic-analyze-find-tag-sequence nil semantic-analyze-select-best-tag semantic-scope-find type semanticdb-strip-find-results semanticdb-find-tags-by-name class tag] 5 (#$ . 14384)])
#@602 Call ANALYZEHOOKFCN after analyzing the symbol under POSITION.
The ANALYZEHOOKFCN is called with the current symbol bounds, and the
analyzed prefix. It should take the arguments (START END PREFIX).
The ANALYZEHOOKFCN is only called if some sort of prefix with bounds was
found under POSITION.
The results of ANALYZEHOOKFCN is returned, or nil if there was nothing to
call it with.
For regular analysis, you should call `semantic-analyze-current-context'
to calculate the context information. The purpose for this function is
to provide a large number of non-cached analysis for filtering symbols.
(defalias 'semantic-analyze-current-symbol #[(analyzehookfcn &optional position) "\204 \306\307!\210\310 \210\311 \312\216\212\313\211\314\315 \211 \f \316
!\314 \f\204@ \211\204@ \205> \317\"\f\203m \204m \f\320N\203\\ \317\f\320N\"\211\204@ \f\211 \321N\206g \f\322N)\211\204D ,\211\205\201 \203
N\205\201
J+\206\n\211\323N)\205\n\211\323N)\314\315 \211 \f \316
!\314 \f\204\300 \211\204\300 \205\276 \317\"\f\203\355 \204\355 \f\320N\203\334 \317\f\320N\"\211\204\300 \f\211 \321N\206\347 \f\322N)\211\204\304 ,\211\205 \203\377
N\205
J+)\211 \203\"\202\324\",\207" [semantic-new-buffer-fcn-was-run save-match-data-internal overload property mode symbol error "Cannot analyze buffers not supported by Semantic" semantic-refresh-tags-safe match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] semantic-analyze-current-symbol nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-analyze-current-symbol-default bind name mode-local-active-mode major-mode #1=#:override analyzehookfcn position] 5 (#$ . 15429)])
(put 'semantic-analyze-current-symbol 'mode-local-overload t)
#@57 Call ANALYZEHOOKFCN on the analyzed symbol at POSITION.
(defalias 'semantic-analyze-current-symbol-default #[(analyzehookfcn position) "\306\307 \310\n\206 `!\211@ \311 8 \312\n! \306
\203S \2037 \31323 \314\f\315\313$\2110\210\202O \3161G \314\f\315#\2110\202N \317!)\210\307 \f\205_
@
A\f#.\207" [semantic-analyze-error-stack LLstart position prefixandbounds prefix bounds nil current-time semantic-ctxt-current-symbol-and-bounds 2 semantic-calculate-scope unfindable semantic-analyze-find-tag-sequence prefixtypes (error) semantic-analyze-push-error scope end debug-on-error err analyzehookfcn] 6 (#$ . 17317)])
#@459 Analyze the current context at optional POSITION.
If called interactively, display interesting information about POSITION
in a separate buffer.
Returns an object based on symbol `semantic-analyze-context'.
This function can be overridden with the symbol `analyze-context'.
When overriding this function, your override will be called while
cursor is at POSITION. In addition, your function will not be called
if a cached copy of the return object is found.
(defalias 'semantic-analyze-current-context #[(&optional position) "\204 \306\307!\210\310 \210 \204 `\212 b\210\311\312!\313 p \314\216\315
!\210\n\204\225\316\211 \"\317\320 # $\211 %$ $ %\321%!\317 & '$\204b (\211$\204b )$\205` \322'\"&$\203\226 &\204\226 $\323N\203\201 \322'$\323N\"\211&\204b $\211 $\324N\206\217 $\325N)\211$\204g &,\211%\205\257 #\203\254 %#N\205\257 %J+\206J\"\211 \"\326N)\205J\"\211 \"\326N)\317\320 # $\211 %$ $ %\321%!\317 & '$\204\374 (\211$\204\374 )$\205\372 \322'\"&$\2030&\2040$\323N\203\322'$\323N\"\211&\204\374 $\211 $\324N\206)$\325N)\211$\204&,\211%\205I#\203F%#N\205I%J+)\211 *\203X* !\202[\327 !)\211\203\200\330\n\331\"\203\200\n +\332p\333+\331\"@\333+\331\"A\n\312\334&\210)\335\336!\203\225\n\203\221\337\n!\210\202\225\340\341!\210\n-\207" [semantic-new-buffer-fcn-was-run position answer #1=#:buffer #2=#:table semantic-lex-syntax-table error "Cannot analyze buffers not supported by Semantic" semantic-refresh-tags-safe semantic-get-cache-data current-context syntax-table #[nil "rq\210\302 !)\207" [#1# #2# set-syntax-table] 2] set-syntax-table semantic-analyze-current-context nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-analyze-current-context-default eieio-oref bounds semantic-cache-data-to-buffer slot-value exit-cache-zone called-interactively-p any semantic-analyze-pop-to-context message "No Context." overload property mode symbol bind name mode-local-active-mode major-mode #3=#:override #4=#:object] 8 (#$ . 17964) "d"])
(put 'semantic-analyze-current-context 'mode-local-overload t)
#@104 Analyze the current context at POSITION.
Returns an object based on symbol `semantic-analyze-context'.
(defalias 'semantic-analyze-current-context-default #[(position) "\306\211\307\n\206\n `!\211@ \310 8 \311 4\306 \312\n! 5\306\211 6\306\211 7 8\306\211 9 :\306\211 ; <\313 \211\203\353\314 7\3151T \3165\"\21160\202[ =\317=!)\210\3206!@;\203\204 \3206!\3206!@\321\306 > ?\211 @?\322>!\306\211\257+\240\2106\203\353\3236!\306 A\211 B\203\265 B@\211 CA@)\321=\203\254 B@ABABA\211B\204\226 A\237*\211 D\204\207\3236!\306 A\211 B\203\353 B@\211 CA@)\324=\203\342 B@ABABA\211B\204\314 A\237*\211 E\203\206F G\323E@\211 C\325 H C\326C C\310C8)H\"+!\306 A\211 B\203BE@\211 C@)B@\211 C@)\230\2039B@ABABA\211B\204 A\237+\211D\203\202D\211 I\203~I@\327 H C\326C C\310C8)H\"*\203uI@DBDIA\211I\204T)\202\2066D)\330D!@\2118 C\3311\302C:\205\276C@;\205\276CA@9\205\276CA@\205\276\310C8<\205\276\332C8<0\202\304\210\306)\205\3447S8\211 C\333 H C\326C C\310C8)H\"+89D6)
\203AJ\203\3342\316\f5\335\334$\336\f!\211<\205\316<5\335\334$\2110\210\202A\33719\316\f5\335#\336\f!\211<\2055\316<5\335#\2110\202@ =\317=!)\2106\203i\340\341\342p\3436\3447\3459C\3465\347\f\3504\351
\352 \353&\202\314\354 \211:\203\255\3551\205\316:5\306\211\356%\211;0\202\216 =\317=!\210)\306\203\255\357\360\342p\361;\3465\351
\347\f\3504\352 \353&\202\314
\203\312\362\363\342p\3465\351
\347\f\3504\352 \353&\202\314\306 .\207" [semantic-analyze-error-stack context-return position prefixandbounds prefix bounds nil semantic-ctxt-current-symbol-and-bounds 2 semantic-ctxt-current-class-list semantic-calculate-scope semantic-ctxt-current-function semantic-ctxt-current-argument (error) semantic-analyze-find-tag-sequence semantic-analyze-push-error last function semantic-tag-make-plist semantic-something-to-tag-table type :members plist-get :constructor reverse (error) 3 :arguments unfindable prefixtypes semantic-analyze-dereference-alias (error) semantic-analyze-context-functionarg "functionargument" :buffer :function :index :argument :scope :prefix :prefixclass :bounds :prefixtypes :errors semantic-ctxt-current-assignment (error) mustbeclassvariable semantic-analyze-context-assignment "assignment" :assignee semantic-analyze-context "context" prefixclass scope fntag arg fntagend argtag assign asstag newseq err attributes class name result tags tag fcn ty semantic-case-fold case-fold-search attribute lp debug-on-error] 23 (#$ . 20150)])
#@187 Dereference first tag in TAGLIST if it is an alias.
Returns a sequence of names which can then be fed again into
`semantic-analyze-find-tag-sequence'.
Returns nil if no alias was found.
(defalias 'semantic-analyze-dereference-alias #[(taglist) "@\304\305\n\306\n8) \"*\307=\205; \310@\311\305\n\306\n8) \"*@\211@)!\312 <\2035 \2027 CA\")\207" [taglist attribute tag tagname :kind plist-get 2 alias semantic-analyze-split-name :members append] 5 (#$ . 22736)])
#@129 Perform `semantic-analyze-current-context'.
Display the results as a debug list.
Optional argument CTXT is the context to show.
(defalias 'semantic-adebug-analyze #[(&optional ctxt) "\303\304!\210\305 \206\f \306 \305 \204 \307\310!\202@ \307\311\n \312\313 \n\"!*\"\210\314!\210\203= \315\316!\210\317\320\"\202@ \307\321!+\207" [ctxt end start require data-debug current-time semantic-analyze-current-context message "No Analyzer Results" "Analysis took %.2f seconds." float-time time-subtract semantic-analyze-pulse data-debug-new-buffer "*Analyzer ADEBUG*" data-debug-insert-object-slots "]" "No Context to analyze here."] 6 (#$ . 23216) nil])
(byte-code "\301\302\303\304\303\305%\210\306\307\310\311\312\313\314&\207" [semantic-format-tag-custom-list cl-generic-define-method semantic-analyze-pulse nil ((context semantic-analyze-context)) #[(context) "\302\303!\210r\304\305\"q\210\304\306\"\211\205 \307 @ A\"*\207" [context bounds require pulse eieio-oref :buffer :bounds pulse-momentary-highlight-region] 4 "Pulse the region that CONTEXT affects."] custom-declare-variable semantic-analyze-summary-function 'semantic-format-tag-prototype "Function to use when creating items in Imenu.\nSome useful functions are found in `semantic-format-tag-functions'." :group semantic :type] 8)
#@105 Send the tag SEQUENCE to standard out.
Use PREFIX as a label.
Use BUFF as a source of override methods.
(defalias 'semantic-analyze-princ-sequence #[(sequence &optional prefix buff) "\204\f \304 !\210\304\305!\210\205\203 \304 !\210@\3061B \n:\205> \n@;\205> \nA@9\205> \nA@\205> \307\n8<\205> \310\n8<0\202D \210\311)\203R \304 @!!\210\202s @;\203k \304\312!\210\304\313@\314\"!\210\304\312!\210\202s \304\315\316@\"!\210\304\317!\210A\320 G\321\"\202\f \207" [sequence prefix tag semantic-analyze-summary-function princ "<none>\n" (error) 2 3 nil "\"" semantic--format-colorize-text variable format "'%S" "\n" make-string 32] 4 (#$ . 24532)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\306\307%\210\300\301\302\310\306\311%\207" [cl-generic-define-method semantic-analyze-show nil ((context semantic-analyze-context)) #[(context) "\301\302\303\"\304\"\210\301\302\305\"\306\"\210\301\302\307\"\310\"\210\301\302\311\"\312\"\210\313\314!\210\302\315\"\2051 \316\302\315\"!\207" [context semantic-analyze-princ-sequence eieio-oref prefix "Prefix: " prefixclass "Prefix Classes: " prefixtypes "Prefix Types: " errors "Encountered Errors: " princ "--------\n" scope semantic-analyze-show] 4 "Insert CONTEXT into the current buffer in a nice way."] ((context semantic-analyze-context-assignment)) t #[(#1=#:cl--cnm context) "\302\303\304\"\305\"\210 \207" [context #1# semantic-analyze-princ-sequence eieio-oref assignee "Assignee: "] 4 "Insert CONTEXT into the current buffer in a nice way."] ((context semantic-analyze-context-functionarg)) #[(#2=#:cl--cnm context) "\302\303\304\"\305\"\210\306\307!\210\306\303\310\"!\210\306\311!\210\302\303\312\"\313\"\210 \207" [context #2# semantic-analyze-princ-sequence eieio-oref function "Function: " princ "Argument Index: " index "\n" argument "Argument: "] 4 "Insert CONTEXT into the current buffer in a nice way."]] 6)
#@110 Display CONTEXT in a temporary buffer.
CONTEXT's content is described in `semantic-analyze-current-context'.
(defalias 'semantic-analyze-pop-to-context #[(context) "\306!\210 r\307\310!q\210p\311 \210\n\312\211\313\211\313 \314 \210\315\316!\210+\211 \317\320!\210\317\321!!\210\317\322!\210\317\323!\210\317\324\325\"!\210\317\322!\210\326!\210\327 !\210+\330\331\310!!\207" [context default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list semantic-analyze-pulse get-buffer-create "*Semantic Context Analysis*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "Context Type: " eieio-object-name "\n" "Bounds: " eieio-oref bounds semantic-analyze-show internal-temp-output-buffer-show shrink-window-if-larger-than-buffer get-buffer-window inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 5 (#$ . 26443)])
(provide 'semantic/analyze)
Kontol Shell Bypass