Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/analyze/debug.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\300\304!\210\300\305!\207" [require semantic semantic/analyze semantic/analyze/complete semantic/db-typecache pulse] 2)
#@47 Debug semantic analysis at the current point.
(defalias 'semantic-analyze-debug-assist #[nil "\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\305 \211 \203\345 \315\316 \"\210\317 \206\361 \205\361 \320 !*\207" [mode-local-active-mode major-mode mode-local-symbol-table ctxt actualfcn semantic-analyze-current-context nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete message "Mode %s does not use the default analyzer." semantic-analyzer-debug-test-local-context semantic-analyzer-debug-found-prefix] 13 (#$ . 580) nil])
#@53 Debug the prefix found by the analyzer output CTXT.
(defalias 'semantic-analyzer-debug-found-prefix #[(ctxt) "\306\307\"\306\310\"\311\312 \3131 \314!0\202 \210\312 8\203F \f\204F 8 \n8 \211 ;\204: \204? \315\202B T*\202 \311=\203[ @;\203[ \316 @
#\202\203 S\n8\204j \317
#\202\203 S\n8\203\200 8;\203\200 \320
#\202\203 \321\322!-\207" [ctxt pf pft idx stop comp eieio-oref prefix prefixtypes 0 nil (error) semantic-analyze-possible-completions t semantic-analyzer-debug-global-symbol semantic-analyzer-debug-missing-datatype semantic-analyzer-debug-missing-innertype message "Things look ok." ptentry pentry] 5 (#$ . 1672)])
#@106 Debug why we can't find the first entry in the CTXT PREFIX.
Argument COMP are possible completions here.
(defalias 'semantic-analyzer-debug-global-symbol #[(ctxt prefix comp) "\306p\f r\307\310 !q\210p\311 \210
\306\211$%\312\211&\312 ' (\313 \210\314\315!\210+\211 ) *r*q\210\316\317!\210\316+!\210\316\320!\210\3211n r q\210\322,\323\"\243\206U ` -\306 \324-! .\325+\326D.\327#,0\202t \211 /\211)\210\n\203\210 \316\330!\210\331\n!\210\316\332!\210\202\225 \316\333!\210\316+!\210\316\334!\210\316\335!\210\336,!\210\3370!\210\316\340!\210\341 !\210)\342)!\210+\343 +\207" [semanticdb-current-table origbuf finderr tab default-directory #1=#:old-dir nil get-buffer-create help-buffer kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook princ "Unable to find symbol " ".\n\n" (error) eieio-oref bounds semantic-calculate-scope semantic-analyze-find-tag-sequence "" prefixtypes "The prefix lookup code threw the following error:\n " prin1 "\n\nTo debug this error you can do this:\n M-x toggle-debug-on-error RET\nand then re-run the debug analyzer.\n" "The prefix " " could not be found in the local scope,\nnor in any search tables.\n" "\n" semantic-analyzer-debug-describe-scope semantic-analyzer-debug-show-completions "When Semantic cannot find a symbol, it could be because the include\npath was setup incorrectly.\n" semantic-analyzer-debug-insert-include-summary internal-temp-output-buffer-show semantic-analyzer-debug-add-buttons buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output prefix ctxt position scope err comp] 5 (#$ . 2337)])
#@111 Debug why we can't find a datatype entry for CTXT prefix at IDX.
Argument COMP are possible completions here.
(defalias 'semantic-analyzer-debug-missing-datatype #[(ctxt idx comp) "\306 \307\"8S\306 \310\"8\n\211 \311 \312\f \313\f8)
\"+ +, - \203- \314\315!\210. /r\316\317 !q\210p\320 \210/.\321\21101\322\2112\322 3 4\323 \210\324\325!\210+\211 5 6r6q\210\326\327!\210\326\330\n!!\210\326\331!\210+ \3321\235 \f:\205\231 \f@;\205\231 \fA@9\205\231 \fA@\205\231 \313\f8<\205\231 \333\f8<0\202\237 \210\321)\203\254 \334+!\210\326\335!\210\326\336\337+\"!\210\326\340!\210\341 \342\"\210\326\343!\210\326\336\344\345-!G\346-!G#!\210\326\347!\210\350-!\210)\3515!\210+\352 ,\207" [idx ctxt prefixitem dt tag attribute eieio-oref prefix prefixtypes :type plist-get 2 error "Missing Datatype debugger is confused" get-buffer-create help-buffer kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "Unable to find datatype for: \"" semantic-format-tag-prototype "\".\nDeclared type is: " (error) 3 semantic-analyzer-debug-insert-tag "\nRaw data type is: " format "%S" "\n\nSemantic could not find this data type in any of its global tables.\n\nSemantic locates datatypes through either the local scope, or the global\ntypecache.\n" semantic-analyzer-debug-describe-scope (type) "\nSemantic creates and maintains a type cache for each buffer.\nIf the type is a global type, then it should appear in they typecache.\nTo examine the typecache, type:\n\n M-x semanticdb-typecache-dump RET\n\nCurrent typecache Statistics:\n" " %4d types global in this file\n %4d types from includes.\n" semanticdb-typecache-file-tags semanticdb-typecache-include-tags "\nIf the datatype is not in the typecache, then your include\npath may be incorrect. " semantic-analyzer-debug-insert-include-summary internal-temp-output-buffer-show semantic-analyzer-debug-add-buttons tt semanticdb-current-table tab default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 7 (#$ . 4001)])
#@216 Debug why we can't find an entry for CTXT prefix at IDX for known type.
We need to see if we have possible completions against the entry before
being too vocal about it.
Argument COMP are possible completions here.
(defalias 'semantic-analyzer-debug-missing-innertype #[(ctxt idx comp) "\306 \307\"8S\306 \307\"8S\306 \310\"8 \311 ! p =\312 \306 \313\"\314# >\f\2040 \315\316!\210? @r\317\320 !q\210p\321 \210@?\322\211AB\314\211C\314 D E\323 \210\324\325!\210+\211 F GrGq\210\326\327!\210\326\n!\210\326\330!\210\331\f!\210\326\332!\210\f\211 H\333 I H\334H H\335H8)I\"+\336\230\203\250 \326\337!\210\326\f\211 H@)!\210\326\340!\210\202~\326\341!\210\331\f!\210\342>\f\"\203\312 r=q\210\343>\306 \313\"\"@)\204Z>r=q\210\343>\306 \313\"\"@) J KJK=\203\356 \326\344!\210\202>\f=\203\374 \326\345!\210\202\326\346!\210\331K!\210\326\347!\210\326\350!\210\331K!\210\326\332!\210J\203IJK=\204I\326\350!\210\331J!\210\326\332!\210JKr=q\210\343J\306 \313\"\"@)\211J\204J\204V\326\351!\210\326\352!\210*\202~\326\353!\210L\204r\326\354!\210\326\n!\210\326\355!\210\202~\326\356!\210\326\n!\210\326\357!\210\326\332!\210\360L!\210\326\361!\210\326\f\211 H@)!\210\326\362!\210\f\211 H\363 I H\334H H\335H8)I\"+\322 M\211 N\203\323N@M\326\364!\210\331M!\210\326\332!\210NA\211N\204\270*
\203(\326\365!\210
H\3661H:\205\fH@;\205\fHA@9\205\fHA@\205\f\335H8<\205\f\367H8<0\202\210\322)\203 \331
!\210\202$\326\370\371
\"!\210\326\372!\210)\373F!\210+\374 .\207" [idx ctxt prefixitem prevprefix dt desired-type eieio-oref prefix prefixtypes semantic-analyze-type-constraint semantic-analyze-tag-type scope t error "Missing Innertype debugger is confused" get-buffer-create help-buffer kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook princ "Cannot find symbol \"" "\" in datatype:\n " semantic-analyzer-debug-insert-tag "\n" :type plist-get 2 "namespace" "Semantic may not have found all possible namespaces with\nthe name " ". You can debug the entire typecache, including merged namespaces\nwith the command:\n\n M-x semanticdb-typecache-dump RET" "\nSemantic has found the datatype " semantic-equivalent-tag-p semantic-analyze-dereference-metatype "\n [ Debugger error trying to help with metatypes ]" "\nwhich is a metatype" "\nwhich is derived from metatype " ".\nThe Metatype stack is:\n" " " " nil\n\n" "Last metatype is nil. This means that semantic cannot derive\nthe list of members because the type referred to cannot be found.\n" "\nand its list of members." " Semantic does not know what\npossible completions there are for \"" "\". Examine the known\nmembers below for more." " Semantic knows of some\npossible completions for \"" "\"." semantic-analyzer-debug-show-completions "\nKnown members of " ":\n" :members " " "\nWhen there are known members that would make good completion\ncandidates that are not in the completion list, then the most likely\ncause is a type constraint. Semantic has determined that there is a\ntype constraint looking for the type " (error) 3 format "%S" "." internal-temp-output-buffer-show semantic-analyzer-debug-add-buttons orig-buffer ots default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output tag attribute nexttype lasttype comp M --dolist-tail--] 7 (#$ . 6114)])
#@46 Test the local context parsed from the file.
(defalias 'semantic-analyzer-debug-test-local-context #[nil "\306`!\211@\3078\203 \203 \n?\205V r\310\311 !q\210p\312 \210\f\313\211 \314\211 \314 \315 \210\316\317!\210+\211 ! \"r\"q\210\320\321!\210\306\211\313\322\323!\313\204q #\211\262\204q $\262\205o \324\"\262\203\234 \211\204\234 \325N\203\213 \324\325N\"\211\262\204q \211\326N\206\225 \211\327N\262\262\202q \266\203\211\262\205\260 \211\203\256 N\205\260 J\266\203\206)\211\211\330N\262\205)\211\211\330N\262\313\322\323!\313\204\350 #\211\262\204\350 $\262\205\346 \324\"\262\203\211\204\325N\203\324\325N\"\211\262\204\350 \211\326N\206\f\211\327N\262\262\202\350 \266\203\211\262\205'\211\203%N\205'J\266\203\262\211 %\203;\320\323%!!\210\202F\320\331!\210\320\323$!!\210\320\332!\210)\333 \210)\314\334!!\210++\207" [prefixandbounds prefix bounds default-directory #1=#:old-dir buffer-read-only semantic-ctxt-current-symbol-and-bounds 2 get-buffer-create help-buffer kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "Local Context Parser Failed.\n\nIf this is unexpected, then there is likely a bug in the Semantic\nlocal context parser.\n\nConsider debugging the function " override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent mode-local--overload-obsolete "semantic-ctxt-current-symbol-and-bounds,\nor implementing a version specific to " ".\n" semantic-analyzer-debug-add-buttons internal-temp-output-buffer-show buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output mode-local-active-mode major-mode lcf] 13 (#$ . 9540)])
#@32 Show the completion list COMP.
(defalias 'semantic-analyzer-debug-show-completions #[(comp) "\204 \304\305!\207\304\306!\210\307\211\203i \n@\304\310!\210 ;\203' \304 !\210\202^ \3111T :\205P @;\205P A@9\205P A@\205P \312 8<\205P \313 8<0\202V \210\307)\203^ \314 !\210\304\315!\210\nA\211\204 *\304\315!\207" [comp C --dolist-tail-- tag princ "\nNo known possible completions.\n" "\nPossible completions are:\n" nil " " (error) 2 3 semantic-analyzer-debug-insert-tag "\n"] 3 (#$ . 11304)])
#@57 Display a summary of includes for the semanticdb TABLE.
(defalias 'semantic-analyzer-debug-insert-include-summary #[(table) "\306\307!\210\310 \210\311!\312\211\203) \n@\211A@)\313=\203\" \n@ B\nA\211\204 \237*r\314!q\210\f)r\314!q\210
)r\314!q\210\315\316!\205J )r\314!q\210\315\317!\205Y ) 5 6 7 8 9\320\321!\2106\203\264 \320\322\323!!\210\320\324!\210\320\3256!!\210\320\326!\21065=\204\231 \320\327!\210\320\3255!!\210\320\326!\2105\203\264 \3305! :\320\331!\210\320\325:!!\210\320\326!\210)\320\332!\2107\312 ;\211 <\203\336 <@;\320\333!\210\320;!\210\320\326!\210<A\211<\204\303 *\320\334!\210\320\335!!\210\320\336!\210\320\337\340\341\335!!9G#!\210\342\211\211\211 = > ? @9\312 A\211 <\203[<@A\343A!\211 B\205&\344B\345\" CB\2045?T?\202QC\203L\346\347C\350\"!\203L@T@\202Q>T>*<A\211<\204*\351@?>#\211=\342U\204\204\320\337\352?\"!\210\320\337\353>\"!\210\320\337\354@\"!\210,8\203\251\320\355!\210\356\3578\"\210\320\360!\210\320\361\347\362\"!!\210\320\322\363!!\202\254\320\364!-\207" [table result tags tag semanticdb-find-lost-includes semantic-dependency-system-include-path require semantic/dep semantic-fetch-tags semantic-something-to-tag-table nil include semanticdb-get-buffer boundp ede-object ede-object-project princ "\n\nInclude Path Summary:" substitute-command-keys "\n\nThis file's project include search is handled by the EDE object:\n" " Buffer Target: " cl-prin1-to-string "\n" " Buffer Project: " ede-get-locator-object " Backup Locator: " "\n\nThe system include path is:\n" " " "\n\nInclude Summary: " semanticdb-full-filename "\n\n" format "%s contains %d includes.\n" file-name-nondirectory 0 semantic-dependency-tag-file semanticdb-file-table-object t number-or-marker-p eieio-oref pointmax + " Unknown Includes: %d\n" " Unparsed Includes: %d\n" " Parsed Includes: %d\n" "\nA likely cause of an unfound tag is missing include files." semantic-analyzer-debug-insert-tag-list "The following includes were not found" "\nYou can fix the include path for " symbol-name major-mode " by using this function:\n\n\\[semantic-customize-system-include-path]\n\nwhich customizes the mode specific variable for the mode-local\nvariable `semantic-dependency-system-include-path'." "\n No unknown includes.\n" edeproj edeobj ip unk inc loc dir --dolist-tail-- all unparsed unknown ok i fileinner tableinner] 7 (#$ . 11816)])
#@129 Describe the scope in CTXT for finding a global symbol.
Optional argument CLASSCONSTRAINT says to output to tags of that class.
(defalias 'semantic-analyzer-debug-describe-scope #[(ctxt &optional classconstraint) "\306\301\"\306 \302\" \206 \306\307\" \310\311!\210\310\312!\210\310\313\314 \"!\210\n\203. \315\316\n\"\210\2022 \310\317!\210\320\306 \301\"\f\"\320\306 \321\"\f\" \211 \203P \315\322\"\210\202T \310\323!\210
\203_ \315\324
\"\202b \310\325!-\207" [ctxt scope parents classconstraint cc lv eieio-oref prefixclass princ "\nLocal Scope Information:" "\n * Tag Class Constraint against SCOPE: " format "%S" semantic-analyzer-debug-insert-tag-list " >> Known parent types with possible in scope symbols" "\n * No known parents in current scope." semantic-analyze-tags-of-class-list localvar " >> Known symbols within the current scope" "\n * No known symbols currently in scope." " >> Known symbols that are declared locally" "\n * No known symbols declared locally." si] 6 (#$ . 14253)])
#@105 Use `princ' to show text describing not finding symbol NAME-IN.
NAME is the name of the unfound symbol.
(defalias 'semantic-analyzer-debug-global-miss-text #[(name-in) ";\203 \202F \30316 :\2052 @;\2052 A@9\2052 A@\2052 \304 8<\2052 \305 8<0\2028 \210\306)\203B \307!\202F \310\311\"\211\312\230?\205Y \313\314!\210\313\n!\210\313\315!)\207" [name-in tag name (error) 2 3 nil semantic-format-tag-name format "%S" "" princ "\nIf " " is a local variable, argument, or symbol in some\nnamespace or class exposed via scoping statements, then it should\nappear in the scope.\n\nDebugging the scope can be done with:\n M-x semantic-calculate-scope RET\n\nIf the prefix is a global symbol, in an included file, then\nyour search path may be incomplete.\n"] 4 (#$ . 15269)])
#@53 Prefixing with TEXT, dump TAGLIST in a help buffer.
(defalias 'semantic-analyzer-debug-insert-tag-list #[(text taglist) "\304\305!\210\304!\210\304\306!\210 \307\211\205+ @\304\310!\210\311\n!\210\304\305!\210 A\211\204 \307*\207" [text taglist M --dolist-tail-- princ "\n" ":\n" nil " " semantic-analyzer-debug-insert-tag] 3 (#$ . 16055)])
#@95 Display a TAG by name, with possible jumpitude.
PARENT is a possible parent (by nesting) tag.
(defalias 'semantic-analyzer-debug-insert-tag #[(tag &optional parent) "\304 \"\305!\203# \306!\203# r q\210\307\n\310\311\300\312\313&)\202. \314\315!\210\314\n!\210\314\315!)\207" [tag parent str standard-output semantic-format-tag-prototype semantic-tag-with-position-p semantic-tag-file-name insert-button mouse-face custom-button-pressed-face action #[(button) "\303\211\212\304\305\n\306\"!\210p`)\307 !\203 \310\307 !!\210\202% \311 \312\"\210b\210\313 *\207" [pnt buff button nil semantic-go-to-tag button-get tag get-buffer-window select-window pop-to-buffer t pulse-line-hook-function] 4] princ "\""] 8 (#$ . 16410)])
#@43 The originating buffer for a help button.
(defvar semantic-analyzer-debug-orig nil (#$ . 17150))
#@98 Add push-buttons to the *Help* buffer.
Look for key expressions, and add push-buttons near them.
(defalias 'semantic-analyzer-debug-add-buttons #[nil "\304 \211`p\223\210r\305q\210\306eb\210\307\302!\210\310\311\312\306#\203O \313\314!\315\316 !!\2040 \317\320 \"\210\312\210\321c\210\322\323\324\325\326 \327\330\331\332\333\334\316 !DDF&\210)\202 )\335\312!*\207" [orig-buffer inhibit-read-only semantic-analyzer-debug-orig fcn make-marker "*Help*" t make-local-variable re-search-forward "^\\s-*M-x \\(\\(\\w\\|\\s_\\)+\\) " nil match-string 1 fboundp intern-soft error "Help Err: Can't find %s" " " insert-button "[ Do It ]" mouse-face custom-button-pressed-face do-fcn action lambda (arg) (let ((M semantic-analyzer-debug-orig)) (set-buffer (marker-buffer M)) (goto-char M)) call-interactively quote set-buffer-modified-p] 15 (#$ . 17253)])
(provide 'semantic/analyze/debug)
Mini Shell