1#@!#!123s

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

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


(byte-code "\300\301!\210\300\302!\207" [require semantic/analyze speedbar] 2)
#@53 Keymap used when in semantic analysis display mode.
(defvar semantic-ia-sb-key-map nil (#$ . 642))
(byte-code "\204�\301 \302\303\304#\210\302\305\306#\210\301\207" [semantic-ia-sb-key-map speedbar-make-specialized-keymap define-key "
" speedbar-edit-line "I" semantic-ia-sb-show-tag-info] 4)
#@33 Extra menu items Analysis mode.
(defvar semantic-ia-sb-easymenu-definition '("---" ["Tag Information" semantic-ia-sb-show-tag-info t] ["Jump to Tag" speedbar-edit-line t] ["Complete" speedbar-edit-line t]) (#$ . 946))
(byte-code "\300\301!\210\302\303\304D!\207" [speedbar-add-expansion-list ("Analyze" semantic-ia-sb-easymenu-definition semantic-ia-sb-key-map semantic-ia-speedbar) speedbar-add-mode-functions-list "Analyze" (speedbar-line-directory . semantic-ia-sb-line-path)] 3)
#@147 Start Speedbar in semantic analysis mode.
The analyzer displays information about the current context, plus a smart
list of possible completions.
(defalias 'semantic-speedbar-analysis #[nil "\300\301!\210\302\303!\207" [speedbar-frame-mode 1 speedbar-change-initial-expansion-list "Analyze"] 2 (#$ . 1436) nil])
#@141 Create buttons in speedbar which define the current analysis at POINT.
DIRECTORY is the current directory, which is ignored, and ZERO is 0.
(defalias 'semantic-ia-speedbar #[(directory zero) "\306\211\211\211\307 \306\211\306\310\311\217\210\312\n!\210rq\210\313 \210\314\315!\210\316\317\320\306\211\321\f!\306\211\322\323&	\210	\203>�\324	\325\326#\210\203H�\327!\210\203`�\330!\210\203`�\314\331!\210\332\325\333#\210
\205g�\334
!.\207" [mode-local-active-mode cnt cf completions buffer scope nil selected-frame (byte-code "\306\307\310\311\"!\210p	\212\312`!\313`!\314 \f\203 �\315\f!)\306\207" [buffer major-mode mode-local-active-mode scope analysis cnt dframe-select-attached-frame dframe-current-frame speedbar-frame speedbar-mode semantic-calculate-scope semantic-analyze-current-context semantic-find-tag-by-overlay semantic-analyze-possible-completions completions] 4) ((error)) select-frame erase-buffer speedbar-insert-separator "Buffer/Function" speedbar-make-tag-line bracket 32 buffer-name speedbar-file-face 0 semantic-ia-sb-string-list speedbar-tag-face semantic-sb-token-jump semantic-ia-sb-show-doc semantic-ia-sb-more-buttons "Completions" semantic-ia-sb-completion-list semantic-ia-sb-complete semantic-ia-sb-show-scope analysis speedbar-buffer] 10 (#$ . 1755)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\207" [eieio--defalias semantic-ia-sb-show-doc eieio--defgeneric-init-form #1="Show documentation about CONTEXT iff CONTEXT points at a complete symbol." eieio--defmethod nil semantic-analyze-context #[(context) "\304\305\306\"!@\307\211\307\310\311\217)\205%�\312\n!\211\205%�\313\314!\210	c\210\315c*\207" [context doc sym tag reverse eieio-oref prefix nil (byte-code ":\205#�@;\205#�A@9\205#�A@\205#�\3018<\205#�\3028<\207" [tag 2 3] 2) ((error)) semantic-documentation-for-tag speedbar-insert-separator "Documentation" "\n"] 5 #1#]] 5)
#@25 Show SCOPE information.
(defalias 'semantic-ia-sb-show-scope #[(scope) "\205�\302\303\"\211\205�\304\305!\210\306	\307\310#)\207" [scope localvars eieio-oref localvar speedbar-insert-separator "Local Variables" semantic-ia-sb-string-list speedbar-tag-face semantic-sb-token-jump] 5 (#$ . 3686)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\301\302\301\303\"\"\210\304\301\305\310\311$\210\300\301\302\301\303\"\"\210\304\301\305\312\313$\207" [eieio--defalias semantic-ia-sb-more-buttons eieio--defgeneric-init-form #1="Show a set of speedbar buttons specific to CONTEXT." eieio--defmethod nil semantic-analyze-context #[(context) "\302\301\"\211\205�\303\304!\210\305	\306\307#)\207" [context prefix eieio-oref speedbar-insert-separator "Prefix" semantic-ia-sb-string-list speedbar-tag-face semantic-sb-token-jump] 5 #1#] semantic-analyze-context-assignment #[(context) "\302 \210\303\301\"\211\205�\304\305!\210\306	\307\310#)\207" [context assignee call-next-method eieio-oref speedbar-insert-separator "Assignee" semantic-ia-sb-string-list speedbar-tag-face semantic-sb-token-jump] 5 "Show a set of speedbar buttons specific to CONTEXT."] semantic-analyze-context-functionarg #[(context) "\306 \210\307\310\"\211\205R�\311\312!\210\313	\314\315#\210\307\316\"	@\211\317\320\n\321\n8)\"+\322\311\323\324\307\325\"\"!\210
\203K�\313
\314\315\307\325\"\326%\202Q�\313\314\315#+)\207" [context func tag attribute idx args call-next-method eieio-oref function speedbar-insert-separator "Function" semantic-ia-sb-string-list speedbar-tag-face semantic-sb-token-jump argument :arguments plist-get 2 0 format "Argument #%d" index speedbar-selected-face arg] 8 "Show a set of speedbar buttons specific to CONTEXT."]] 5)
#@161 Create some speedbar buttons from LIST.
Each button will use FACE, and be activated with FUNCTION.
Optional IDX is an index into LIST to apply IDXFACE instead.
(defalias 'semantic-ia-sb-string-list #[(list face function &optional idx idxface) "\306	\205\200�\307	@;\203�	@\202+�	@\307\310\311\217)\203*�\312	@!\313	@!\202+�\314
\2036�
U\204;�\202=�	@\307\315\316\217)\203b�\317\320\321\322	@\f\n\205W�	@\323&	\210\202v�\317\324\325\307\211\f\n\205n�	@\323&	\210	AT+\202�)\207" [count list usefn tag string idx 1 nil (byte-code ":\205#�@;\205#�A@9\205#�A@\205#�\3018<\205#�\3028<\207" [tag 2 3] 2) ((error)) semantic-tag-with-position-p semantic-format-tag-uml-concise-prototype "<No Tag>" (byte-code ":\205#�@;\205#�A@9\205#�A@\205#�\3018<\205#�\3028<\207" [tag 2 3] 2) ((error)) speedbar-make-tag-line angle 105 semantic-ia-sb-tag-info 0 statictag 63 face idxface localface function] 10 (#$ . 5461)])
#@100 Create some speedbar buttons from LIST.
Each button will use FACE, and be activated with FUNCTION.
(defalias 'semantic-ia-sb-completion-list #[(list face function) "\205R�\306@;\203�@\202&�@\306\307\310\217)\203%�\311\312@!\202&�\313	\203=�\314\315\316\317@\f@
\320&	\210\202K�\314\321\322\306\211\f@
\320&	\210A*\202��\207" [list documentable tag string function face nil (byte-code ":\205#�@;\205#�A@9\205#�A@\205#�\3018<\205#�\3028<\207" [tag 2 3] 2) ((error)) t semantic-format-tag-uml-concise-prototype "foo" speedbar-make-tag-line angle 105 semantic-ia-sb-tag-info 0 statictag 32] 10 (#$ . 6408)])
#@132 Display information about the tag on the current line.
Same as clicking on the <i> button.
See `semantic-ia-sb-tag-info' for more.
(defalias 'semantic-ia-sb-show-tag-info #[nil "\301\212\301\210\302u\210\303`\304\")\305\301\306#)\207" [tok nil -1 get-text-property speedbar-token semantic-ia-sb-tag-info 0] 4 (#$ . 7042) nil])
#@195 Display as much information as we can about tag.
Show the information in a shrunk split-buffer and expand
out as many details as possible.
TEXT, TAG, and INDENT are speedbar function arguments.
(defalias 'semantic-ia-sb-tag-info #[(text tag indent) "\306\307\310\217)\205\n\311\216\306\312\313\314\315\"!\210p\nr\316\317!q\210p\320 \210\306\211\321\211'\321()\322 \210\323\324!\210+\211*+r\317q\210db\210\325\306\321#\326\261\210\306\327\330\217\211,\203d�\325,\306\321#c\210\202\375�\211\331-\332\3338)-\"+\211.\306\334\335\217)\203\215�.\211@).\202\230�.<\203\230�.@..\211//\3360!\205\262�/;\205\262�\337/0\")\211/\205\274�/J)\203\363�.\3401\211//\3360!\205\335�/;\205\335�\337/0\")\2112\203\354�21N\202\360�\341\342\343\"+,),\203\375�,c\210*\344*!\210+\345\346\317!!*\207" [tag ob default-directory #1=#:old-dir buffer-read-only buffer-file-name nil (byte-code ":\205#�@;\205#�A@9\205#�A@\205#�\3018<\205#�\3028<\207" [tag 2 3] 2) ((error)) ((select-frame speedbar-frame)) dframe-select-attached-frame dframe-current-frame speedbar-frame speedbar-mode get-buffer-create "*Tag Information*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook semantic-format-tag-prototype "\n" (byte-code "rq\210\302	\303\")\207" [ob tag semantic-analyze-tag-type nil] 3) ((error)) :type plist-get 2 (byte-code ":\205#�@;\205#�A@9\205#�A@\205#�\3018<\205#�\3028<\207" [tag 2 3] 2) ((error)) arrayp intern-soft summary signal wrong-type-argument (semantic-lex-keyword-p name) internal-temp-output-buffer-show shrink-window-if-larger-than-buffer get-buffer-window buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output typetok attribute type name semantic-flex-keywords-obarray property keyword] 5 (#$ . 7380)])
#@45 Return the file name associated with DEPTH.
(defalias 'semantic-ia-sb-line-path #[(&optional depth) "\303 \304\216\305 \306	!\203�\306	!\202�p\307\n!,\207" [save-match-data-internal tok buff match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) speedbar-line-token semantic-tag-buffer buffer-file-name] 2 (#$ . 9207)])
#@103 At point in the attached buffer, complete the symbol clicked on.
TEXT TAG and INDENT are the details.
(defalias 'semantic-ia-sb-complete #[(text tag indent) "\305\306\307\310\"!\210\311\216\312`!\313\301\"\314\212`	AX\203%�`	@Y\203%�\315	@b\210	@	A|\210\211@)c\210\n\203<�`)\n\205R�\316 \305\306\307\310\"!\210\nb\210\317\f!),\207" [a bounds movepoint tag cf dframe-select-attached-frame dframe-current-frame speedbar-frame speedbar-mode ((select-frame speedbar-frame)) semantic-analyze-current-context eieio-oref nil t selected-frame select-frame] 5 (#$ . 9581)])
(provide 'semantic/ia-sb)