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



(require 'semantic)
#@395 Character strings used to separate a parent/child relationship.
This list of strings are used for displaying or finding separators
in variable field dereferencing.  The first character will be used for
display.  In C, a type field is separated like this: "type.field"
thus, the character is a ".".  In C, and additional value of "->"
would be in the list, so that "type->field" could be found.
(defvar semantic-type-relation-separator-character '(".") (#$ . 105))
(make-variable-buffer-local 'semantic-type-relation-separator-character)
#@184 List of major modes which are considered equivalent.
Equivalent modes share a parser, and a set of override methods.
A value of nil means that the current major mode is the only one.
(defvar semantic-equivalent-major-modes nil (#$ . 649))
(make-variable-buffer-local 'semantic-equivalent-major-modes)
#@310 Return a tag table for FILE.
If it is loaded, return the stream after making sure it's ok.
If FILE is not loaded, check to see if `semanticdb' feature exists,
   and use it to get tags from files not in memory.
If FILE is not loaded, and semanticdb is not available, find the file
   and parse it.

(fn FILE)
(defalias 'semantic-file-tag-table #[257 "\300 \301\302\"\216\303!\203r\303!q\210\304 )\2023\305\306!\203*\307 \203*\310!\2023r\311!q\210\304 ))\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] find-buffer-visiting semantic-fetch-tags require semantic/db-mode semanticdb-minor-mode-p semanticdb-file-stream find-file-noselect] 5 (#$ . 957)])
#@186 Convert SOMETHING into a semantic tag table.
Something can be a tag with a valid BUFFER property, a tag table, a
buffer, or a filename.  If SOMETHING is nil return nil.

(fn SOMETHING)
(defalias 'semantic-something-to-tag-table #[257 "\211<\203<\211@\30014\211:\205.\211@;\205.\211A@9\205.\211A@\205.\301
8<\205.\302
8<0\262
\2028\210\303\262
\203<\207\304
!\203Jr\211q\210\305 )\207\306
!\203`\307
!\203`r\310
!q\210\305 )\207\211\3001\216\211:\205\210\211@;\205\210\211A@9\205\210\211A@\205\210\301
8<\205\210\302
8<0\262
\202\222\210\303\262
\203\251\311
!\203\251\312\311!!\203\251\313\311!!\207\211;\203\270\312
!\203\270\313
!\207\314\315!\203\327\316\317!\203\327\320 \203\327\321
!\203\327\322
!\210\323
!\207\314\315!\203\370\316\317!\203\370\320 \203\370\316\324!\203\370\325
!\203\370\326
!\207\303\207" [(error) 2 3 nil bufferp semantic-fetch-tags semantic-tag-with-position-p semantic-tag-in-buffer-p semantic-tag-buffer semantic-tag-file-name file-exists-p semantic-file-tag-table featurep semantic/db require semantic/db-mode semanticdb-minor-mode-p semanticdb-abstract-table--eieio-childp semanticdb-refresh-table semanticdb-get-tags semantic/db-find semanticdb-find-results-p semanticdb-strip-find-results] 4 (#$ . 1665)])
#@28 History for a symbol read.
(defvar semantic-read-symbol-history nil (#$ . 2946))
#@400 Read a symbol name from the user for the current buffer.
PROMPT is the prompt to use.
Optional arguments:
DEFAULT is the default choice.  If no default is given, one is read
from under point.
STREAM is the list of tokens to complete from.
FILTER is provides a filter on the types of things to complete.
FILTER must be a function to call on each element.

(fn PROMPT &optional DEFAULT STREAM FILTER)
(defalias 'semantic-read-symbol #[1025 "\204	\300\301!\262
\204\302 \262\211\203:\211\303
!\304
\2033@!\203,
@
B\262

A\262\202\211\237\266\204\202D\305\306!\210\307\310\304\211$\262\203\\\311\312\"\203\\\313\211\225O\314\315R\262\316\304\317\320\321	&\207" [thing-at-point symbol semantic-fetch-tags semantic-something-to-tag-table nil require semantic/find semantic-brute-find-tag-by-function #[257 "\211\211A@\262
\300>\207" [(function variable type)] 3 "\n\n(fn TAG)"] string-match ":" 0 " (default: " ") " completing-read t "" semantic-read-symbol-history] 12 (#$ . 3034)])
#@280 Read a variable name from the user for the current buffer.
PROMPT is the prompt to use.
Optional arguments:
DEFAULT is the default choice.  If no default is given, one is read
from under point.
STREAM is the list of tokens to complete from.

(fn PROMPT &optional DEFAULT STREAM)
(defalias 'semantic-read-variable #[769 "\300\301\206	p!\302
\203(
@\211A@\262
\303=\203!
@
B\262

A\262\202\211\237\266\202\2062\304\305!#\207" [semantic-read-symbol semantic-something-to-tag-table nil variable error "No local variables"] 10 (#$ . 4048)])
#@278 Read a function name from the user for the current buffer.
PROMPT is the prompt to use.
Optional arguments:
DEFAULT is the default choice.  If no default is given, one is read
from under point.
STREAM is the list of tags to complete from.

(fn PROMPT &optional DEFAULT STREAM)
(defalias 'semantic-read-function #[769 "\300\301\206	p!\302
\203(
@\211A@\262
\303=\203!
@
B\262

A\262\202\211\237\266\202\2062\304\305!#\207" [semantic-read-symbol semantic-something-to-tag-table nil function error "No local functions"] 10 (#$ . 4601)])
#@274 Read a type name from the user for the current buffer.
PROMPT is the prompt to use.
Optional arguments:
DEFAULT is the default choice.  If no default is given, one is read
from under point.
STREAM is the list of tags to complete from.

(fn PROMPT &optional DEFAULT STREAM)
(defalias 'semantic-read-type #[769 "\300\301\206	p!\302
\203(
@\211A@\262
\303=\203!
@
B\262

A\262\202\211\237\266\202\2062\304\305!#\207" [semantic-read-symbol semantic-something-to-tag-table nil type error "No local types"] 10 (#$ . 5152)])
#@103 Describe TAG in the minibuffer.
If TAG is nil, describe the tag under the cursor.

(fn &optional TAG)
(defalias 'semantic-describe-tag #[256 "\211\204\300 \262
\301 \210\211\205\302\303!!\207" [semantic-current-tag semantic-fetch-tags message semantic-format-tag-summarize] 4 (#$ . 5687) nil])
#@111 Add a LABEL with VALUE on TAG.
If TAG is not specified, use the tag at point.

(fn LABEL VALUE &optional TAG)
(defalias 'semantic-add-label #[770 "\211\204\300 \210\301 \262
\302
\303!#\210\304\305#\207" [semantic-fetch-tags semantic-current-tag semantic--tag-put-property intern message "Added label %s with value %S"] 7 (#$ . 5993) "sLabel: \nXValue (eval): "])
#@106 Show the value of LABEL on TAG.
If TAG is not specified, use the tag at point.

(fn LABEL &optional TAG)
(defalias 'semantic-show-label #[513 "\211\204\300 \210\301 \262
\302\303\304!\305\306
8\262
\"\266\202#\207" [semantic-fetch-tags semantic-current-tag message "%s: %S" intern plist-get 3] 11 (#$ . 6370) "sLabel: "])
#@76 Display to standard out the value of VARSYM in BUFFER.

(fn VARSYM BUFFER)
(defalias 'semantic-describe-buffer-var-helper #[514 "\300\301!\210r\211q\210
J)\211:\203%\211G\302W\203%\303\304\305G#!\210\306
\307\"\207\310
\311\211\312!\313Q#\207" [require data-debug 10 princ format "  %s:  #<list of %d items>\n" data-debug-insert-stuff-list "    " data-debug-insert-thing " " symbol-name ": "] 9 (#$ . 6706)])
#@59 Describe the semantic environment for the current buffer.
(defalias 'semantic-describe-buffer #[0 "pr\306\307 !q\210p\310 \210
\311\211\312\211\312\313 \210\314\315!\210+\211\316\317C\320\321!\"\210rq\210\322\323!\210\322\324!!\210\322\325!\210\322\326!\210\327\211\211\203X\211@\330
\"\210
A\266\202\202E\266\322\331!\210\332\211\211\203s\211@\330
\"\210
A\266\202\202`\266\322\325!\210\333!)\334!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only get-buffer-create help-buffer kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook help-setup-xref semantic-describe-buffer called-interactively-p interactive princ "Semantic Configuration in " buffer-name "\n\n" "Buffer specific configuration items:\n" (major-mode semantic-case-fold semantic-tag-expand-function semantic-parser-name semantic-parse-tree-state semantic-lex-analyzer semantic-lex-reset-functions semantic-lex-syntax-modifications) semantic-describe-buffer-var-helper "\nGeneral configuration items:\n" (semantic-inhibit-functions semantic-init-hook semantic-init-db-hook semantic-unmatched-syntax-hook semantic--before-fetch-tags-hook semantic-after-toplevel-cache-change-hook semantic-before-toplevel-cache-flush-hook semantic-dump-parse semantic-type-relation-separator-character semantic-command-separation-character semantic-new-buffer-fcn-was-run) mode-local-describe-bindings-2 internal-temp-output-buffer-show standard-output] 10 (#$ . 7127) nil])
#@45 Assert that TOK is a valid token.

(fn TOK)
(defalias 'semantic-assert-valid-token #[257 "\211\3011.\211:\205(\211@;\205(\211A@9\205(\211A@\205(\302
8<\205(\303
8<0\262
\2022\210\304\262
\203Z\305
!\205a\211\306
8\262
\307
!\205Y\310
!?\205Y\311\312\313\211@\262
\")\207\311\312\314\")\207" [debug-on-error (error) 2 3 nil semantic-tag-with-position-p 4 overlayp overlay-buffer t error "Tag %s is invalid!" "Not a semantic tag: %S"] 6 (#$ . 8676)])
#@321 Perform a sanity check on the current buffer.
The buffer's set of overlays, and those overlays found via the cache
are verified against each other.
CACHE, and OVER are the semantic cache, and the overlay list.
NOTFIRST indicates that this was not the first call in the recursive use.

(fn &optional CACHE OVER NOTFIRST)
(defalias 'semantic-sanity-check #[768 "\204
\204\211\204\262\301ed\"\262\203M\302@!@\303
8\262
>\2042\304\305\306@!\"\210\307@\303
8\262
\"\262\310
\311#\262A\262\210\202\211\204\201\312\203u\313@\314\"\203n\313@\314\"\315=\204n@
B\262
A\262\202R\316\317!\203\200\304\320\"\210\210
\207" [semantic--buffer-cache overlays-in semantic-tag-components-with-overlays 4 message "Tag %s not in buffer overlay list." semantic-format-tag-concise-prototype delq semantic-sanity-check t nil overlay-get semantic unmatched called-interactively-p any "Remaining overlays: %S"] 8 (#$ . 9147) nil])
#@99 Find all tags with name starting with PREFIX.
This uses `semanticdb' when available.

(fn PREFIX)
(defalias 'semantic-find-tag-for-completion #[257 "\301\211\3021\303\304!\205\305 \211\262\205\306
!\211\2620\210\202 \210
\206p\303\307!\203;\310 \203;\311\312!\203;\313\314!!\207G\315\316p!!\301
\203j\317\320\301@\211@\262
\320&\321=\203c
@
B\262

A\262\202C\211\237\266\202\262
\207" [semantic-case-fold nil (error) featurep semantic/analyze semantic-analyze-current-context semantic-analyze-possible-completions semantic/db semanticdb-minor-mode-p require semantic/db-find semanticdb-fast-strip-find-results semanticdb-deep-find-tags-for-completion semantic-something-to-tag-table semantic-flatten-tags-table compare-strings 0 t] 14 (#$ . 10098)])
#@195 Complete the symbol under point, using Semantic facilities.
When called from a program, optional arg PREDICATE is a predicate
determining which symbols are considered.

(fn &optional PREDICATE)
(defalias 'semantic-complete-symbol #[256 "\306\307!\210\310\311`!8@\312
`{!\313\211\203L\203=@p=\203=A@U\203=\212b\210\314\3158!)\203=\316\233\262\202L\317!\262\320p\321F\"
\204o\203[\322\323\"\202\\\324\325\326 !\203j\327\322\330\"!\207\331\332\"\207\333#\262

\230\203\337\334#\335
\336\"\262
\211G\337V\203\302	r\340\341!q\210p\342 \210
\313\211\343\211\3432\344 \210\345\346!\210+\2113\347\350G\313#!\351!\210)\207\352\341\321\"\211\205\336\353
!r\354\355\"\216\356
@\357\"\210\360 *\262
\207`|\210\211c\210\352\341\321\"\211\205
\353
!r\354\361\"\216\356
@\357\"\210\360 *\262
\207" [semantic--completion-cache default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks require semantic/ctxt 2 semantic-ctxt-current-symbol-and-bounds regexp-quote nil looking-at 3 4 semantic-find-tag-for-completion append 0 format " for \"%s\"" "" window-minibuffer-p selected-window minibuffer-message " [No completions%s]" message "Can't find completion%s" try-completion all-completions sort string< 1 get-buffer-create "*Completions*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook display-completion-list completion-hilit-commonality internal-temp-output-buffer-show get-buffer-window internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord bury-buffer #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] inhibit-read-only standard-output] 14 (#$ . 10881) nil])
(byte-code "\300\301!\210\302\303!\207" [provide semantic/util require semantic/util-modes] 2)