;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312DD\313\314\305\315\316&\207" [require semantic semantic/format semantic/sort semantic/util speedbar custom-declare-variable semantic-sb-autoexpand-length funcall function #[0 "\300\207" [1] 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) (#$ . 533))
(byte-code "\301\302\303\304\305DD\306\307\310\311&\210\301\312\303\304\313DD\314\307\310\311&\207" [semantic-format-tag-custom-list custom-declare-variable semantic-sb-button-format-tag-function funcall function #[0 "\300\207" [semantic-format-tag-abbreviate] 1 #1=""] "Function called to create the text for a but from a token." :group speedbar :type semantic-sb-info-format-tag-function #[0 "\300\207" [semantic-format-tag-summarize] 1 #1#] "Function called to create the text for info display from a token."] 8)
#@125 Set the current buffer to something associated with TAG.
use the `speedbar-line-file' to get this info if needed.

(fn TAG)
(defalias 'semantic-sb-tag-set-buffer #[257 "\300
!\203\300
!q\207\301 \302
!q\207" [semantic-tag-buffer speedbar-line-file find-file-noselect] 4 (#$ . 1253)])
#@133 Set the current buffer to the origin of TAG and execute FORMS.
Restore the old current buffer when completed.

(fn TAG &rest FORMS)
(defalias 'semantic-sb-with-tag-buffer '(macro . #[385 "\300\301DBB\207" [save-excursion semantic-sb-tag-set-buffer] 5 (#$ . 1546)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put semantic-sb-with-tag-buffer lisp-indent-function 1 put edebug-form-spec t] 5)
#@165 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.

(fn TAG)
(defalias 'semantic-sb-tag-children-to-expand #[257 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\340\211!\207\313!\207" [mode-local-active-mode major-mode mode-local-symbol-table 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 (#$ . 1965)])
(put 'semantic-sb-tag-children-to-expand 'mode-local-overload t)
#@75 For TAG, the children for type, variable, and function classes.

(fn TAG)
(defalias 'semantic-sb-tag-children-to-expand-default #[257 "\212\300
!\210\301
!)\207" [semantic-sb-tag-set-buffer semantic-tag-components] 3 (#$ . 3102)])
#@138 Insert TAG as a speedbar button at DEPTH.
Optional PREFIX is used to specify special marker characters.

(fn TAG DEPTH &optional PREFIX)
(defalias 'semantic-sb-one-button #[770 "\211A@\262
\301!\211\302\303\304
8\262
\"\266\203\212\305!\210!)`\306!\307\261\210`\310\311	S\312#\210\313
`\314\312$\210\203S<\203SG\315X\203S@\204S\312\262\204d\316>\203d\203d\317\262\203\202\320\203u\321P\202v\322\323\324\325
\317&\210\202\230\320\203\217\326P\202\220\327\312\211\211\211\317&\210\320\330\324\331
\317&\210\313\314\317$\207" [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] 16 (#$ . 3340)])
#@278 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.

(fn DEPTH BUTTON TEXT &optional TEXT-FUN TEXT-DATA)
(defalias 'semantic-sb-speedbar-data-line #[1283 "`\300!\301\261\210`\302\303\304$\210\305\306\307#\210\302
`\303\307$\210\310\307\211\211\211\304&\210\310\311\2053\312\304&\207" [int-to-string ":" put-text-property invisible t insert-char 32 nil speedbar-insert-button speedbar-tag-face speedbar-highlight-face] 14 (#$ . 4304)])
#@391 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.

(fn OBJ INDENT &optional PREFIX MODIFIERS)
(defalias 'semantic-sb-maybe-token-to-button #[1026 "
\206\300;\203\301#\207<\2056@;\2031G\302U\2031\301@\206.\303P#\207\304#\207" [">" semantic-sb-speedbar-data-line 1 "" semantic-sb-one-button] 10 (#$ . 4937)])
#@60 Insert details about TAG at level INDENT.

(fn TAG INDENT)
(defalias 'semantic-sb-insert-details #[514 "
\211A@\262
\211\301\302\303
8\262
\"\266\203
\304\267\202	
\211\305\302\303
8\262
\"\266\203\306
@\3071X\211:\205R\211@;\205R\211A@9\205R\211A@\205R\303
8<\205R\310
8<0\262
\202\\\210\306\262
\205\215\212\311@!\210\312!\262
)\211GV\203{\313S\"\210\306\262
\205\215\314@\"\210
A\262\202{\207\211\203\230\314
\315#\210\211\316\302\303
8\262
\"\266\203\211\205\257\314
\317#\207\211\203\307\320\315;\203\300\202\305\211@\262
#\210\211\321\302\303
8\262
\"\266\203\211\205
\211@\205
\314
@\322#\210\211A\262
\211G\323V\203\376\314
@\324#\210\211A\262
\202\351\211\205
\314
@\325#\207\212\326
8\262
\203
\327!\203
\327!q\210\330!)\211\2053
\331
@\"\210\211A\262
\202\"
\207" [semantic-sb-autoexpand-length :type plist-get 2 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (type 26 variable 142 function 176)) :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] 11 (#$ . 5570)])
#@77 Return the first parent token of the current line that includes a location.
(defalias 'semantic-sb-detail-parent #[0 "\212\300 \210\301\302!\203\303\304\305!!S\202\305\306\307\310!\311Q\312\313#\266\300 \210\301\314!\205B\312\315\224b\210\316`\317\"\262
\320
!\203>\211\202@\321 \262
)\207" [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] 5 (#$ . 6890)])
#@128 Display additional information about the token as an expansion.
TEXT TOKEN and INDENT are the details.

(fn TEXT TOKEN INDENT)
(defalias 'semantic-sb-show-extra #[771 "\301\302\"\203#\303\304!\210\305\212\306\210\307u\210\214``}\210\310T\"\210+\2029\301\311\"\2035\303\312!\210\313
!\210\2029\314\315!\210\316 \207" [inhibit-read-only string-search "+" 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] 6 (#$ . 7460)])
#@105 Jump to the location specified in token.
TEXT TOKEN and INDENT are the details.

(fn TEXT TOKEN INDENT)
(defalias 'semantic-sb-token-jump #[771 "\301
!\206	\302!\303 \304 \305!\210\306\307!\210\310
!\266\311!\210\212\312 \210)\313\"\210\314p!\210\315 \210\306\316!\207" [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] 8 (#$ . 8021)])
#@106 Expand a group which has semantic tokens.
TEXT TOKEN and INDENT are the details.

(fn TEXT TOKEN INDENT)
(defalias 'semantic-sb-expand-group #[771 "\301\302\"\203#\303\304!\210\305\212\306\210\307u\210\214e`}\210\310
T\"\210+\2029\301\311\"\2035\303\312!\210\313
!\210\2029\314\315!\210\316 \207" [inhibit-read-only string-search "+" 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] 6 (#$ . 8666)])
#@58 Create buttons at LEVEL using TOKENS.

(fn LEVEL TOKENS)
(defalias 'semantic-sb-buttons-plain #[514 "\300
!\211\2056\211\242\203/\211\242\243\242:\203)\301\302\303\304@A@@\305\211\306&	\210\202/\307
@\"\210\211A\262
\202\207" [speedbar-create-tag-hierarchy speedbar-make-tag-line curly 43 semantic-sb-expand-group nil speedbar-tag-face semantic-sb-one-button] 13 (#$ . 9205)])
#@199 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.

(fn LEVEL TABLE)
(defalias 'semantic-sb-insert-tag-table #[514 "\300\"\207" [semantic-sb-buttons] 5 (#$ . 9600)])
#@78 Create buttons at LEVEL using LST sorting into type buckets.

(fn LEVEL LST)
(defalias 'semantic-sb-buttons #[514 "\214e`}\210\301
\205?
@\262
\211A\2038\211AGX\203%\302TA\"\210\2028\303\304\305\306A@@\301\211\307T&	\210
A\262\202\262
)\207" [semantic-sb-autoexpand-length nil semantic-sb-buttons-plain speedbar-make-tag-line curly 43 semantic-sb-expand-group speedbar-tag-face] 13 (#$ . 9903)])
#@123 Load FILE into a buffer, and generate tags using the Semantic parser.
Returns the tag list, or t for an error.

(fn FILE)
(defalias 'semantic-sb-fetch-tag-table #[257 "\302\303\304!\203\305 \203\204\306!\211\262\204;r\307!q\210\303\310!\203)	\204/\311\262
\202:\2036\312 \210\313 \262
)\211<\203Z\3141W\315
!\262
\212\316
@!\210\317
\302\320#)0\207\210\311\207\311\207" [speedbar-power-click 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 #[257 "\301
!\302
\203!
@\211A@\262
>\204
@
B\262

A\262\202\211\237\207" [semantic-sb-filter-tags-of-class semantic-something-to-tag-table nil] 5 "\n\n(fn TAGSIN)"]] 6 (#$ . 10321)])
(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)