Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/util.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 '(".") (#$ . 429))
(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 (#$ . 973))
(make-variable-buffer-local 'semantic-equivalent-major-modes)
#@299 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.
(defalias 'semantic-file-tag-table #[(file) "\302 \303\216\304 !\203 r\304 !q\210\305 )\2021 \306\307!\203( \310 \203( \311 !\2021 r\312 !q\210\305 )*\207" [save-match-data-internal file match-data #[nil "\301\302\"\207" [save-match-data-internal 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] 2 (#$ . 1281)])
(semantic-alias-obsolete 'semantic-file-token-stream 'semantic-file-tag-table "23.2")
#@170 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.
(defalias 'semantic-something-to-tag-table #[(something) "<\203; @\30213 :\205/ @;\205/ A@9\205/ A@\205/ \303 8<\205/ \304 8<0\2025 \210\305)\203; \207\306!\203I rq\210\307 )\207\310!\203_ \311!\203_ r\312!q\210\307 )\207\3021\214 :\205\210 @;\205\210 A@9\205\210 A@\205\210 \303 8<\205\210 \304 8<0\202\216 \210\305)\203\246 \313!\203\246 \314\313!!\203\246 \315\313!!\207;\203\265 \314!\203\265 \315!\207\316\317!\203\324 \320\321!\203\324 \322 \203\324 \323!\203\324 \324!\210\325!\207\316\317!\203\365 \320\321!\203\365 \322 \203\365 \320\326!\203\365 \327!\203\365 \330!\207\305\207" [something tag (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] 3 (#$ . 2100)])
(semantic-alias-obsolete 'semantic-something-to-stream 'semantic-something-to-tag-table "23.2")
#@28 History for a symbol read.
(defvar semantic-read-symbol-history nil (#$ . 3429))
#@355 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.
(defalias 'semantic-read-symbol #[(prompt &optional default stream filter) "\204 \306\307! \204 \310 \n\203? \n \311 !\312 \211 \2039 \f@!\2030 @
BA\211\204\"
\237,\202I \313\314!\210\315\316 \312\211$\203c \317\320\"\203c \321\322\211\225#\323\324R\325 \312\326\327\330&\207" [default stream filter table predicate result thing-at-point symbol semantic-fetch-tags semantic-something-to-tag-table nil require semantic/find semantic-brute-find-tag-by-function #[(tag) "\211A@)\301>\207" [tag (function variable type)] 3] string-match ":" substring 0 " (default: " ") " completing-read t "" semantic-read-symbol-history tags prompt] 8 (#$ . 3517)])
#@242 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.
(defalias 'semantic-read-variable #[(prompt &optional default stream) "\306 \307\n\206 p!\310\211 \203) \f@\211 A@)\311=\203\" \f@ B\fA\211\204 \237*\2062 \312\313!#\207" [prompt default stream result tags tag semantic-read-symbol semantic-something-to-tag-table nil variable error "No local variables"] 6 (#$ . 4558)])
#@240 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.
(defalias 'semantic-read-function #[(prompt &optional default stream) "\306 \307\n\206 p!\310\211 \203) \f@\211 A@)\311=\203\" \f@ B\fA\211\204 \237*\2062 \312\313!#\207" [prompt default stream result tags tag semantic-read-symbol semantic-something-to-tag-table nil function error "No local functions"] 6 (#$ . 5133)])
#@236 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.
(defalias 'semantic-read-type #[(prompt &optional default stream) "\306 \307\n\206 p!\310\211 \203) \f@\211 A@)\311=\203\" \f@ B\fA\211\204 \237*\2062 \312\313!#\207" [prompt default stream result tags tag semantic-read-symbol semantic-something-to-tag-table nil type error "No local types"] 6 (#$ . 5706)])
#@83 Describe TAG in the minibuffer.
If TAG is nil, describe the tag under the cursor.
(defalias 'semantic-describe-tag #[(&optional tag) "\204 \301 \302 \210\205 \303\304!!\207" [tag semantic-current-tag semantic-fetch-tags message semantic-format-tag-summarize] 3 (#$ . 6262) nil])
#@79 Add a LABEL with VALUE on TAG.
If TAG is not specified, use the tag at point.
(defalias 'semantic-add-label #[(label value &optional tag) "\204\n \303 \210\304 \305\306 !\n#\210\307\310 \n#\207" [tag label value semantic-fetch-tags semantic-current-tag semantic--tag-put-property intern message "Added label %s with value %S"] 4 (#$ . 6553) "sLabel: \nXValue (eval): "])
#@80 Show the value of LABEL on TAG.
If TAG is not specified, use the tag at point.
(defalias 'semantic-show-label #[(label &optional tag) "\204\n \303 \210\304 \305\306 \307 !\310\3118)\n\"*#\207" [tag label property semantic-fetch-tags semantic-current-tag message "%s: %S" intern plist-get 3] 6 (#$ . 6933) "sLabel: "])
#@56 Display to standard out the value of VARSYM in BUFFER.
(defalias 'semantic-describe-buffer-var-helper #[(varsym buffer) "\303\304!\210rq\210 J)\211:\203( \nG\305W\203( \306\307\310 \nG#!\210\311\n\312\"\2022 \313\n\314\211\315 !\316Q#)\207" [buffer varsym value require data-debug 10 princ format " %s: #<list of %d items>\n" data-debug-insert-stuff-list " " data-debug-insert-thing " " symbol-name ": "] 7 (#$ . 7265)])
#@59 Describe the semantic environment for the current buffer.
(defalias 'semantic-describe-buffer #[nil "p r\306\307 !q\210p\310 \210\n\311\211\312\211\312 \313 \210\314\315!\210+\211 \316\317C\320\321!\"\210r q\210\322\323!\210\322\324!!\210\322\325!\210\322\326!\210\327\211 !\311 \"\211 #\203j #@\"\330\"\"\210#A\211#\204V +\322\331!\210\332\211 !\311 \"\211 #\203\220 #@\"\330\"\"\210#A\211#\204| +\322\325!\210\333!)\334 !\210,\207" [buff default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list 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-bovinate-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 inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output vars V --dolist-tail--] 5 (#$ . 7699) nil])
#@35 Assert that TOK is a valid token.
(defalias 'semantic-assert-valid-token #[(tok) "\3041- :\205) @;\205) A@9\205) A@\205) \305 8<\205) \306 8<0\202/ \210\307)\203Z \310!\205a \311 8)\312\n!\205X \313\n!?\205X \314\315\316\211@)\"))\207\314\315\317\")\207" [tok tag o 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"] 4 (#$ . 9364)])
#@285 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.
(defalias 'semantic-sanity-check #[(&optional cache over notfirst) "\204 \204 \n\204 \306ed\"\203H \307@! @ \310
8) >\2040 \311\312\313@!\"\210\314@ \310
8) \"\315\f \316#A)\202 \n\204\200 \317 \203s \320 @\321\"\203l \320 @\321\"\322=\204l @B A\211\204S \323\324!\203 \311\325\"\210) \207" [cache over notfirst semantic--buffer-cache chil tag 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" o] 5 (#$ . 9809) nil])
#@86 Find all tags with name starting with PREFIX.
This uses `semanticdb' when available.
(defalias 'semantic-find-tag-for-completion #[(prefix) "\306\211\3071 \310\311!\205 \312 \211\205 \313!\2110\202\" \210\202# \210 \206s \310\314!\203@ \315 \203@ \316\317!\203@ \320\321\n!!\202s \nG\322\323p!!\306\211 \203p \324\n\325\306\f@\211 @)\325 &\326=\203i \f@ B\fA\211\204O \237+*\207" [ctxt result prefix l tags tag 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 semantic-case-fold] 9 (#$ . 10746)])
#@169 Complete the symbol under point, using Semantic facilities.
When called from a program, optional arg PREDICATE is a predicate
determining which symbols are considered.
(defalias 'semantic-complete-symbol #[(&optional predicate) "\306\307!\210\310\311`!8@\312`{!\313\211\203M \f\203@ \f@p=\203@ \fA@U\203@ \212b\210\314\315\f8!)\203@ \316\f\233\202M \317 !\320p\321 F\n\"\n\204v \203\\ \322\323 \"\202] \324 \325\326 !\203n \327\322\330
\"!\202r \331\332
\")\202 \333 \n1# \230\203\373 \334 \n1# 2\3352\336\"\2112G\337V\203\331 3 4r\340\341!q\210p\342 \21043\313\21156\343\2117\343 8 9\344 \210\345\346!\210+\211 : ;\347\3502 G\313#!\351:!\210+\202\367 \352\341\321\"\211 <\205\366 \353<! =r\354\216\355=@\356\"\210\357 +))\202 `|\210 c\210\352\341\321\"\211 <\205 \353<! =r\360\216\355=@\356\"\210\357 +),\207" [start pattern collection completion semantic--completion-cache str 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 #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord bury-buffer #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] predicate list default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output win save-selected-window--state] 6 (#$ . 11543) nil])
(byte-code "\300\301!\210\302\303!\207" [provide semantic/util require semantic/util-modes] 2)
Mini Shell