Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/cedet/semantic/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!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\305\313\314&\207" [require semantic semantic/format semantic/sort semantic/util speedbar custom-declare-variable semantic-sb-autoexpand-length 1 "Length of a semantic bucket to autoexpand in place.\nThis will replace the named bucket that would have usually occurred here." :group :type integer] 8)
#@133 Tags classes to not display in speedbar.
Make this buffer local for modes that have different types of tags
that should be ignored.
(defvar semantic-sb-filter-tags-of-class '(code) (#$ . 807))
(byte-code "\301\302\303\304\305\306\307&\210\301\310\311\312\305\306\307&\207" [semantic-format-tag-custom-list custom-declare-variable semantic-sb-button-format-tag-function 'semantic-format-tag-abbreviate "Function called to create the text for a but from a token." :group speedbar :type semantic-sb-info-format-tag-function 'semantic-format-tag-summarize "Function called to create the text for info display from a token."] 8)
#@115 Set the current buffer to something associated with TAG.
use the `speedbar-line-file' to get this info if needed.
(defalias 'semantic-sb-tag-set-buffer #[(tag) "\302!\203\302!q\207\303 \304	!q)\207" [tag f semantic-tag-buffer speedbar-line-file find-file-noselect] 2 (#$ . 1442)])
#@111 Set the current buffer to the origin of TAG and execute FORMS.
Restore the old current buffer when completed.
(defalias 'semantic-sb-with-tag-buffer '(macro . #[(tag &rest forms) "\302\303D	BB\207" [tag forms save-excursion semantic-sb-tag-set-buffer] 3 (#$ . 1735)]))
(put 'semantic-sb-with-tag-buffer 'lisp-indent-function 1)
#@155 For TAG, return a list of children that TAG expands to.
If this returns a value, then a +> icon is created.
If it returns nil, then a => icon is created.
(defalias 'semantic-sb-tag-children-to-expand #[(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-sb-tag-children-to-expand nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-sb-tag-children-to-expand-default] 13 (#$ . 2071)])
(put 'semantic-sb-tag-children-to-expand 'mode-local-overload t)
#@65 For TAG, the children for type, variable, and function classes.
(defalias 'semantic-sb-tag-children-to-expand-default #[(tag) "\212\301!\210\302!)\207" [tag semantic-sb-tag-set-buffer semantic-tag-components] 2 (#$ . 3224)])
#@105 Insert TAG as a speedbar button at DEPTH.
Optional PREFIX is used to specify special marker characters.
(defalias 'semantic-sb-one-button #[(tag depth &optional prefix) "\211A@)\306!\211\307\310\3118)\"+\212\312!\210
!)` \313!!\314\261\210`\"\315\316!S\317#\210\320\"`\321\317$\210\n\203\\\n<\203\\\nG\322X\203\\\n@\204\\\317\n\204l	\323>\203l\f\203l\324\n\203\211\325#\203}\326#P\202~\327\330\331\332\324&\210\202\237\325#\203\226\333#P\202\227\334\317\211\211\211\324&\210\325\335\331\336\324&\210\320 \"\321\324$.\207" [tag class edata attribute type semantic-sb-button-format-tag-function semantic-sb-tag-children-to-expand :type plist-get 2 semantic-sb-tag-set-buffer int-to-string ":" insert-char 32 nil put-text-property invisible 1 (variable function) t speedbar-insert-button " +" " +>" speedbar-button-face speedbar-highlight-face semantic-sb-show-extra "  " " =>" speedbar-tag-face semantic-sb-token-jump abbrev start depth end prefix] 8 (#$ . 3458)])
#@225 Insert a semantic token data element.
DEPTH is the current depth.  BUTTON is the text for the button.
TEXT is the actual info with TEXT-FUN to occur when it happens.
Argument TEXT-DATA is the token data to pass to TEXT-FUN.
(defalias 'semantic-sb-speedbar-data-line #[(depth button text &optional text-fun text-data) "`\306!\307\261\210`\310\n	\311\312$\210\313\314\315#\210\310	`\311\315$\210\316\315\211\211\211\312&\210\316\f\317
\2051\320
\312&*\207" [depth end start button text text-fun int-to-string ":" put-text-property invisible t insert-char 32 nil speedbar-insert-button speedbar-tag-face speedbar-highlight-face text-data] 7 (#$ . 4481)])
#@347 Convert OBJ, which was returned from the semantic parser, into a button.
This OBJ might be a plain string (simple type or untyped variable)
or a complete tag.
Argument INDENT is the indentation used when making the button.
Optional PREFIX is the character to use when marking the line.
Optional MODIFIERS is additional text needed for variables.
(defalias 'semantic-sb-maybe-token-to-button #[(obj indent &optional prefix modifiers) "\206\305\n;\203\306	\n#\2029\n<\2059\n@;\2034\nG\307U\2034\306	\n@\f\206/\310P#\2029\311\n#)\207" [prefix myprefix obj indent modifiers ">" semantic-sb-speedbar-data-line 1 "" semantic-sb-one-button] 5 (#$ . 5151)])
#@43 Insert details about TAG at level INDENT.
(defalias 'semantic-sb-insert-details #[(tag indent) "\211A@)\211\306\307\3108)	\"+\211\311\267\2020
\211\312\307\3108)	\"+\313\211@\3141_:\205[@;\205[A@9\205[A@\205[\3108<\205[\3158<0\202a\210\313)\205\224\212\316
@!\210\317
!)\fGV\203\201\320 S\f\"\210\313
\205\224\321
@ \"\210
A\211\204\205\313*\202b
\n\203\243\321\n \322#\210\211\323\307\3108)	\"+\211!\205\300\321! \324#)\202b
\n\203\334\325 \322\n;\203\325\n\202\332\n\211@)#\210\211\326\307\3108)	\"+\211\"\205,
\"@\205,
\321\"@ \327#\210\"A\211\"G\330V\203
\321\"@ \331#\210\"A\211\"\202
\"\205,
\321\"@ \332#)\202b
\212\3338)\203E
\334!\203E
\334!q\210\335!)\211#\205a
\336#@ \"\210#A\211#\204O
\313)*\207" [tag attribute type tt newparts parts :type plist-get 2 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (type 30 variable 152 function 196)) :members nil (error) 3 semantic-sb-tag-set-buffer semantic-bucketize semantic-sb-insert-tag-table semantic-sb-maybe-token-to-button "@" :default-value "=" semantic-sb-speedbar-data-line :arguments "(" 1 "|" ")" 4 semantic-tag-buffer semantic-sb-tag-children-to-expand semantic-sb-one-button semantic-sb-autoexpand-length indent default args components] 5 (#$ . 5823)])
#@77 Return the first parent token of the current line that includes a location.
(defalias 'semantic-sb-detail-parent #[nil "\212\302 \210\303\304!\203\305\306\307!!S\202\307\310\311\312!\313Q\314\315#\210)\302 \210\303\316!\205B\314\317\224b\210\320`\321\"\322	!\203?	\202A\323 ))\207" [dep prop beginning-of-line looking-at "[0-9]+:" string-to-number match-string 0 re-search-backward "^" int-to-string ":" nil t "[0-9]+: +[-+][>()@|] \\([^\n]+\\)$" 1 get-text-property speedbar-token semantic-tag-with-position-p semantic-sb-detail-parent] 4 (#$ . 7182)])
#@104 Display additional information about the token as an expansion.
TEXT TOKEN and INDENT are the details.
(defalias 'semantic-sb-show-extra #[(text token indent) "\304\305\"\203#\306\307!\210\310\212\311\210\312u\210\214``}\210\313\nT\"\210+\2029\304\314\"\2035\306\315!\210\316!\210\2029\317\320!\210\321 \207" [text inhibit-read-only token indent string-match "\\+" speedbar-change-expand-button-char 45 t nil 1 semantic-sb-insert-details "-" 43 speedbar-delete-subblock error "Ooops...  not sure what to do" speedbar-center-buffer-smartly] 3 (#$ . 7754)])
#@81 Jump to the location specified in token.
TEXT TOKEN and INDENT are the details.
(defalias 'semantic-sb-token-jump #[(text token indent) "\306!\206	\307	!\310 \311 \312
!\210\313\314!\210\315\f!\210)\316!\210\212\317 \210)\320	\n\"\210\321p!\210\322 \210\313\323!*\207" [indent token parent file f speedbar-frame speedbar-line-directory semantic-tag-file-name semantic-sb-detail-parent selected-frame dframe-select-attached-frame run-hooks speedbar-before-visiting-tag-hook select-frame speedbar-find-file-in-frame speedbar-stealthy-updates semantic-go-to-tag switch-to-buffer dframe-maybee-jump-to-attached-frame speedbar-visiting-tag-hook] 3 (#$ . 8326)])
#@82 Expand a group which has semantic tokens.
TEXT TOKEN and INDENT are the details.
(defalias 'semantic-sb-expand-group #[(text token indent) "\304\305\"\203#\306\307!\210\310\212\311\210\312u\210\214e`}\210\313\nT\"\210+\2029\304\314\"\2035\306\315!\210\316\n!\210\2029\317\320!\210\321 \207" [text inhibit-read-only indent token string-match "\\+" speedbar-change-expand-button-char 45 t nil 1 semantic-sb-buttons-plain "-" 43 speedbar-delete-subblock error "Ooops...  not sure what to do" speedbar-center-buffer-smartly] 3 (#$ . 8995)])
#@39 Create buttons at LEVEL using TOKENS.
(defalias 'semantic-sb-buttons-plain #[(level tokens) "\303!\211\2057	\242\203/	\242\243\242:\203)\304\305\306\307	@A	@@\310\211\311\n&	\210\202/\312	@\n\"\210	A\211\204\310)\207" [tokens sordid level speedbar-create-tag-hierarchy speedbar-make-tag-line curly 43 semantic-sb-expand-group nil speedbar-tag-face semantic-sb-one-button] 11 (#$ . 9547)])
#@181 At LEVEL, insert the tag table TABLE.
Use arcane knowledge about the semantic tokens in the tagged elements
to create much wiser decisions about how to sort and group these items.
(defalias 'semantic-sb-insert-tag-table #[(level table) "\302	\"\207" [level table semantic-sb-buttons] 3 (#$ . 9952)])
#@62 Create buttons at LEVEL using LST sorting into type buckets.
(defalias 'semantic-sb-buttons #[(level lst) "\214e`}\210\304	\205>	@\211A\2036AG\nX\203%\305TA\"\210\2026\306\307\310\311A	@@\304\211\312T&	\210	A\211\204\304*\207" [tmp lst semantic-sb-autoexpand-length level nil semantic-sb-buttons-plain speedbar-make-tag-line curly 43 semantic-sb-expand-group speedbar-tag-face] 11 (#$ . 10259)])
#@112 Load FILE into a buffer, and generate tags using the Semantic parser.
Returns the tag list, or t for an error.
(defalias 'semantic-sb-fetch-tag-table #[(file) "\304\305\306!\203\307 \203	\204\310\n!\211\2049r\311\n!q\210\305\312!\203)\204.\313\2028	\2035\314 \210\315 )<\203[\3161V\317!\212\320@!\210\321\304\322#)0\202\\\210\313\202\\\313)\207" [out speedbar-power-click file semantic--parse-table nil featurep semantic/db semanticdb-minor-mode-p semanticdb-file-stream find-file-noselect semantic t semantic-clear-toplevel-cache semantic-fetch-tags (error) semantic-adopt-external-members semantic-sb-tag-set-buffer semantic-bucketize #[(tagsin) "\305!\306\211\203\"\n@\211A@)\f>\204\n@	B\nA\211\204\n	\237*\207" [tagsin result tags tag semantic-sb-filter-tags-of-class semantic-something-to-tag-table nil] 3]] 4 (#$ . 10676)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-to-list speedbar-dynamic-tags-function-list (semantic-sb-fetch-tag-table . semantic-sb-insert-tag-table) provide semantic/sb] 3)