;ELC ;;; Compiled ;;; in Emacs version 27.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 (#$ . 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 @;\2053 A@9\2053 A@\2053\311 8<\2053\312 8<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 \320 8)\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=\311 8<\205=\312 8<0\202C\210\307)\203S\313 @!\314 @!\202T\315 \203_ U\204d\202f @\3161\226 :\205\222 @;\205\222 A@9\205\222 A@\205\222\311 8<\205\222\312 8<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 "" (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 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)