Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/cedet/semantic/ia.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 "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\307\310\311\312\313\314\315&\207" [semantic-format-tag-custom-list require semantic/analyze semantic/format pulse semantic/senator semantic/analyze/refs custom-declare-variable semantic-ia-completion-format-tag-function 'semantic-format-tag-prototype "Function used to convert a tag to a string during completion." :group semantic :type] 8)
#@57 Insert TAG into the current buffer based on completion.
(defalias 'semantic-ia-insert-tag #[(tag) "\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\205aJ\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\324J\266\203\262
\211\203\343\f!\202\346\315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override tag semantic-ia-insert-tag nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-ia-insert-tag-default] 13 (#$ . 829)])
(put 'semantic-ia-insert-tag 'mode-local-overload t)
#@57 Insert TAG into the current buffer based on completion.
(defalias 'semantic-ia-insert-tag-default #[(tag) "\211@)c\210\211A@)\211\302=\203\303c\202\304)\207" [tag tt function "(" nil] 3 (#$ . 1835)])
(defalias 'semantic-ia-get-completions 'semantic-ia-get-completions-deprecated "`Semantic-ia-get-completions' is obsolete.\nUse `semantic-analyze-possible-completions' instead.")
#@221 A function to help transition away from `semantic-ia-get-completions'.
Return completions based on CONTEXT at POINT.
You should not use this, nor the aliased version.
Use `semantic-analyze-possible-completions' instead.
(defalias 'semantic-ia-get-completions-deprecated #[(context point) "\301!\207" [context semantic-analyze-possible-completions] 2 (#$ . 2230)])
#@150 Complete the current symbol at POS.
If POS is nil, default to point.
Completion options are calculated with `semantic-analyze-possible-completions'.
(defalias 'semantic-ia-complete-symbol #[(&optional pos) "\205
	\204\n`\306	!\307\n!\310\311\n\312\"!@\211\3131G
:\205C
@;\205C
A@9\205C
A@\205C\314
8<\205C\315
8<0\202I\210\316)\203S\f\211@)\204b\317\n!\205\n
\320 \202\n
\f\227\f\230 \321\f\206n\322\"\211!;\203\277!\f\206~\322\230\204\277\323!\"\"\311\n\324\"@\203\254\311\n\324\"A\203\254\311\n\324\"@\311\n\324\"A|\210\311\n\324\"@b\210\"\203\270\325\"!\202\273!c)\202	
\311\n\324\"A\203\316\311\n\324\"Ab\210#$r\326\327!q\210p\330 \210$#\316\211%&\331\211'\331()\332 \210\333\334!\210+\211*+\335\336,\"!\337*!\210+*+\207" [semantic-new-buffer-fcn-was-run pos a syms pre tag semantic-analyze-current-context semantic-analyze-possible-completions reverse eieio-oref prefix (error) 2 3 nil semantic-analyze-context-p semantic-complete-symbol try-completion "" semantic-find-first-tag-by-name bounds semantic-ia-insert-tag get-buffer-create "*Completions*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook display-completion-list mapcar internal-temp-output-buffer-show completion-ignore-case tc tok default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output semantic-ia-completion-format-tag-function] 5 (#$ . 2602) "d"])
#@63 Function used to convert a tag to a string during completion.
(custom-declare-variable 'semantic-ia-completion-menu-format-tag-function ''semantic-format-tag-uml-concise-prototype '(#$ . 4101) :group 'semantic :type semantic-format-tag-custom-list)
#@136 Complete the current symbol via a menu based at POINT.
Completion options are calculated with `semantic-analyze-possible-completions'.
(defalias 'semantic-ia-complete-symbol-menu #[(point) "\306\307!\210\310!\311	!\211\204\312\313!\202r\314\315\n\"\316\317B\320\321 D\322#\211\205q\f\3231W
:\205S
@;\205S
A@9\205S
A@\205S\324
8<\205S\325
8<0\202Y\210\317)\204b\fA\326H\327	\330\"@\327	\330\"A|\210\331\f!**\207" [point a syms menu ans tag require imenu semantic-analyze-current-context semantic-analyze-possible-completions message "No smart completions found." mapcar #[(tag) "	!\302	!B\207" [semantic-ia-completion-menu-format-tag-function tag vector] 3] imenu--mouse-menu nil down-mouse-1 posn-at-point "Completions" (error) 2 3 0 eieio-oref bounds semantic-ia-insert-tag] 5 (#$ . 4357) "d"])
#@43 Pop up a tooltip for completion at POINT.
(defalias 'semantic-ia-complete-tip #[(point) "\306!\307	!\310i\311 Z\312 \"\212\214~\210\313 `}\210eb\210\314\315 !T*\316\317\n\320#\321\322!\203=\322
\323 \324\211\f&\202@\325
!-\207" [point a syms x y str semantic-analyze-current-context semantic-analyze-possible-completions mod window-hscroll window-width window-start vertical-motion buffer-size mapconcat semantic-tag-name "\n" fboundp x-show-tip selected-frame nil message] 7 (#$ . 5180) "d"])
#@47 Display a summary for the symbol under POINT.
(defalias 'semantic-ia-show-summary #[(point) "\303!\211\205\304	!\211\203\305\306\307\n\310\311#\"\202\305\312!*\207" [point ctxt pf semantic-analyze-current-context semantic-analyze-interesting-tag message "%s" semantic-format-tag-summarize nil t "No summary info available"] 7 (#$ . 5690) "P"])
#@60 Display a list of all variants for the symbol under POINT.
(defalias 'semantic-ia-show-variants #[(point) "\306!\307\310	!\203\311	\312\"Ab\210\306`!\313	\314\315#\211G\316U\203}\n@\317\211\211A@)*=\203}
%\320\n@\211\321&\322\f\323\f8)&\"+!\307'\211(\203x\n@\211@)(@\211@)\230\203o(@'B'(A\211(\204V'\237+\nG\324U\203\212\325\326!\202\334\nG\316U\203\235\325\327\330\n@\307\331#\"\202\334)*r\332\333!q\210p\334 \210*)\307\211+,\331\211-\331./\335 \210\336\337!\210+\21101\340\n\341p#\210\3420!\210+\343\344\333!!*\207" [point ctxt comp class tag semantic-case-fold semantic-analyze-current-context nil semantic-analyze-context-functionarg-p eieio-oref bounds semantic-analyze-possible-completions no-unique no-tc 1 type semantic-something-to-tag-table :members plist-get 2 0 message "No Variants found." "%s" semantic-format-tag-summarize t get-buffer-create "*Symbol Variants*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook semantic-analyze-princ-sequence "" internal-temp-output-buffer-show shrink-window-if-larger-than-buffer get-buffer-window case-fold-search attribute result tags 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 (#$ . 6049) "d"])
#@92 Jump to DEST, a Semantic tag.
This helper manages the mark, buffer switching, and pulsing.
(defalias 'semantic-ia--fast-jump-helper #[(dest) "\305!\203\306!\307	\310\"\211\203\n@*\311!\204.\312\313\f\314\f8)\"*\2034\315!\204;\316\317\320!\"\210\321 \210\322\323!\203G\323 \210\324!\210\325p!\210\326`!\207" [dest refs impl attribute tag semantic-tag-prototype-p semantic-analyze-tag-references semantic-analyze-refs-impl t semantic-tag-with-position-p :line plist-get 2 semantic-tag-file-name error "Tag %s has no buffer information" semantic-format-tag-name push-mark fboundp xref-push-marker-stack semantic-go-to-tag pop-to-buffer-same-window pulse-momentary-highlight-one-line] 5 (#$ . 7388)])
#@151 Jump to the tag referred to by the code at POINT.
Uses `semantic-analyze-current-context' output to identify an accurate
origin of the code at point.
(defalias 'semantic-ia-fast-jump #[(point) "\306!\211\205\307\310	\311\"!\211@\nA@\3121C
:\205?
@;\205?
A@9\205?
A@\205?\313
8<\205?\314
8<0\202E\210\315)\203O\316!\202
\f\3171|
:\205x
@;\205x
A@9\205x
A@\205x\313
8<\205x\314
8<0\202~\210\315)\203\360\307\310	\320\"!@ \321 !\203\250\322\323\324 \211@)#!\203\250\316 !\202\354\f\3251\325
:\205\321
@;\205\321
A@9\205\321
A@\205\321\313
8<\205\321\314
8<0\202\327\210\315)\205\354\322\323\324\f\211@)#!\205\354\316\f!)\202
\326 \327!\211\211A@)!*=\203
\330\331!\210\332 \210\333\334!\203
\334 \210\335 \202
\336\337\",\207" [point ctxt pf first second tag semantic-analyze-current-context reverse eieio-oref prefix (error) 2 3 nil semantic-ia--fast-jump-helper (error) prefixtypes semantic-tag-with-position-p y-or-n-p format-message "Could not find `%s'.  Jump to %s? " (error) semantic-current-tag include require semantic/decorate/include push-mark fboundp xref-push-marker-stack semantic-decoration-include-visit error "Could not find suitable jump point for %s" secondclass class] 6 (#$ . 8114) "d"])
#@164 Jump to the tag referred to by the point clicked on.
See `semantic-ia-fast-jump' for details on how it works.
 This command is meant to be bound to a mouse event.
(defalias 'semantic-ia-fast-mouse-jump #[(evt) "\301\212\302\303!!\210`)!\207" [evt semantic-ia-fast-jump posn-set-point event-end] 4 (#$ . 9384) "e"])
#@63 Display the code-level documentation for the symbol at POINT.
(defalias 'semantic-ia-show-doc #[(point) "\306!\307\310	\311\"!\211@;\203\312\313!\202\311\n@\3141E:\205A@;\205AA@9\205AA@\205A\3158<\205A\3168<0\202G\210\317)\203\306\320\n@!\211\203Z\f\321\230\203d\312\322\323\n@!\"\202\302
\"r\324\325!q\210p\326 \210\"\317\211#$\327\211%\327&'\330 \210\331\332!\210+\211()\333\334!\210\333\323\n@!!\210\333\335!\210\333\335!\210\333\336!\210\333\335!\210\333\335!\210\f\203\271\333\f!\202\274\333\337!\340(!\210+)\202\311\312\341!*\207" [point ctxt pf tag doc default-directory semantic-analyze-current-context reverse eieio-oref prefix message "Incomplete symbol name." (error) 2 3 nil semantic-documentation-for-tag "" "Doc unavailable for: %s" semantic-format-tag-prototype get-buffer-create "*TAG DOCUMENTATION*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook princ "Tag: " "\n" "Snarfed Documentation: " "  Documentation unavailable." internal-temp-output-buffer-show "Unknown tag." #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 5 (#$ . 9706) "d"])
#@164 Display all known parts for the datatype TYPENAME.
If the type in question is a class, all methods and other accessible
parts of the parent classes are displayed.
(defalias 'semantic-ia-describe-class #[(typename) "\306!\211\30711\n:\205-\n@;\205-\nA@9\205-\nA@\205-\310\n8<\205-\311\n8<0\2023\210\312)\204<\313\314	\"\210r\315\316!q\210p\317 \210\f\312\211\320\211\320\321 \210\322\323!\210+\211 \324\325	!!\210\324\326!\210\324\327!\210\330	!\211!\205\226\324\331!\210\324\325!@!!\210\324\326!\210!A\211!\204|\312)\332!\210,\207" [typename class tag default-directory #1=#:old-dir buffer-read-only semantic-analyze-find-tag (error) 2 3 nil error "Cannot find class %s" get-buffer-create "*TAG DOCUMENTATION*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook princ semantic-format-tag-summarize "\n" "  Type Members:\n" semantic-analyze-scoped-type-parts "    " internal-temp-output-buffer-show buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output parts] 4 (#$ . 10921) "sType Name: "])
(provide 'semantic/ia)