%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/cedet/semantic/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/ia-sb.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!\207" [require semantic/analyze speedbar] 2)
#@53 Keymap used when in semantic analysis display mode.
(defvar semantic-ia-sb-key-map nil (#$ . 487))
(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]) (#$ . 791))
(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 (#$ . 1281) 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$\3101=\311\312\313\314\"!\210p%\212\315`!\316`!$\317 $\2058\320$!\211)0\202A\210\202B\210\321\n!\210r&q\210\322 \210\323\324!\210\325\326\327\306\211\330\f!\306\211\331\332&	\210	\203k\333	\334\335#\210$\203u\336$!\210$\203\215\337$!\210\203\215\323\340!\210\341\334\342#\210
\205\224\343
!.\207" [mode-local-active-mode cnt cf completions buffer scope nil selected-frame (error) 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 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 major-mode speedbar-buffer] 10 (#$ . 1600)])
(cl-generic-define-method 'semantic-ia-sb-show-doc nil '((context semantic-analyze-context)) nil #[(context) "\304\305\306\"!@\307\211\31017:\2053@;\2053A@9\2053A@\2053\3118<\2053\3128<0\2029\210\307)\205N\313\n!\211\205N\314\315!\210	c\210\316c*\207" [context doc sym tag reverse eieio-oref prefix nil (error) 2 3 semantic-documentation-for-tag speedbar-insert-separator "Documentation" "\n"] 5 "Show documentation about CONTEXT if CONTEXT points at a complete symbol."])
#@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 (#$ . 3344)])
(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-ia-sb-more-buttons nil ((context 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 "Show a set of speedbar buttons specific to CONTEXT."] ((context semantic-analyze-context-assignment)) t #[(#1=#:cl--cnm context) " \210\303	\302\"\211\205\304\305!\210\306\n\307\310#)\207" [#1# context assignee 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."] ((context semantic-analyze-context-functionarg)) #[(#2=#:cl--cnm context) " \210\306	\307\"\211\205U\310\311!\210\312\n\313\314#\210\306	\315\"\n@\211\316\317\3208)\f\"+\321\310\322\323\306	\324\"\"!\210\203N\312\313\314\306	\324\"\325%\202T\312\313\314#+)\207" [#2# context func tag attribute idx 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 args arg] 8 "Show a set of speedbar buttons specific to CONTEXT."]] 6)
#@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\322\307	@;\203	@\202T	@\3101A:\205=@;\205=A@9\205=A@\205=\3118<\205=\3128<0\202C\210\307)\203S\313	@!\314	@!\202T\315
\203_
U\204d\202f	@\3161\226:\205\222@;\205\222A@9\205\222A@\205\222\3118<\205\222\3128<0\202\230\210\307)\203\264\317\320\321\322	@\f\n\205\251	@\323&	\210\202\310\317\324\325\307\211\f\n\205\300	@\323&	\210	AT+\202)\207" [count list usefn tag string idx 1 nil (error) 2 3 semantic-tag-with-position-p semantic-format-tag-uml-concise-prototype "<No Tag>" (error) speedbar-make-tag-line angle 105 semantic-ia-sb-tag-info 0 statictag 63 face idxface localface function] 10 (#$ . 5041)])
#@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) "\205{\306@;\203@\202O@\3071?\n:\205;\n@;\205;\nA@9\205;\nA@\205;\310\n8<\205;\311\n8<0\202A\210\306)\203N\312\313@!\202O\314	\203f\315\316\317\320@\f@
\321&	\210\202t\315\322\323\306\211\f@
\321&	\210A*\202\207" [list documentable tag string function face nil (error) 2 3 t semantic-format-tag-uml-concise-prototype "foo" speedbar-make-tag-line angle 105 semantic-ia-sb-tag-info 0 statictag 32] 10 (#$ . 5971)])
#@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 (#$ . 6588) 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) "\3061-:\205)@;\205)A@9\205)A@\205)\3078<\205)\3108<0\202/\210\311)\205\\\312\216\311\313\314\315\316\"!\210p\nr\317\320!q\210p\321 \210\311\211\322\211&\322'(\323 \210\324\325!\210+\211)*r\320q\210db\210\326\311\322#\327\261\210\3301\211r	q\210\331\311\")0\202\213\210\311\211+\203\234\326+\311\322#c\210\202O\211\332,\333\3078),\"+\211-\3341\335:\205\331@;\205\331A@9\205\331A@\205\331\3078<\205\331\3108<0\202\337\210\311)\203\356-\211@)-\202\371-<\203\371-@--\211\335.!\205
\211;\205
\336.\"\262\211\262\205\211J\262\203E-\337\335.!\2051\211;\2051\336.\"\262\211\203=\211N\202A\340\341\342\"\266\203+)+\203O+c\210*\343)!\210+\344\345\320!!*\207" [tag ob default-directory #1=#:old-dir buffer-read-only buffer-file-name (error) 2 3 nil #[nil "\301!\207" [speedbar-frame select-frame] 2] 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" (error) semantic-analyze-tag-type :type plist-get (error) obarrayp 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 semantic-flex-keywords-obarray] 7 (#$ . 6926)])
#@45 Return the file name associated with DEPTH.
(defalias 'semantic-ia-sb-line-path #[(&optional depth) "\303 \304\216\305 \306	!\203\306	!\202p\307\n!,\207" [save-match-data-internal tok buff match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] speedbar-line-token semantic-tag-buffer buffer-file-name] 2 (#$ . 8683)])
#@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 #[nil "\301!\207" [speedbar-frame select-frame] 2] semantic-analyze-current-context eieio-oref nil t selected-frame select-frame] 5 (#$ . 9050)])
(provide 'semantic/ia-sb)

Zerion Mini Shell 1.0