Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/ctxt.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)
#@96 String which indicates the end of a command.
Used for identifying the end of a single command.
(defvar semantic-command-separation-character ";" (#$ . 428))
(make-variable-buffer-local 'semantic-command-separation-character)
#@93 String which indicates the end of an argument.
Used for identifying arguments to functions.
(defvar semantic-function-argument-separation-character "," (#$ . 659))
(make-variable-buffer-local 'semantic-function-argument-separation-character)
#@423 Move point up one context from POINT.
Return non-nil if there are no more context levels.
Overloaded functions using `up-context' take no parameters.
BOUNDS-TYPE is a symbol representing a tag class to restrict
movement to. If this is nil, `function' is used.
This will find the smallest tag of that class (function, variable,
type, etc) and make sure non-nil is returned if you cannot
go up past the bounds of that tag.
(defalias 'semantic-up-context #[(&optional point bounds-type) "\306\307!\210\203 b\210\310 \206 \311!\211\203\214\312\n!\210\313\211\314\315\316!\314\204> \211\262\204> \f\262
\205< \317
\"\262\203i \211\204i \305N\203X \317\305N\"\211\262\204> \211\320N\206b \211\321N\262\262\202> \266\203\211\262\205} \211\203{ N\205} J\266\203\206\362 \211\211\322N\262\205\362 \211\211\322N\262\314\315\316!\314\204\261 \211\262\204\261 \f\262
\205\257 \317
\"\262\203\334 \211\204\334 \305N\203\313 \317\305N\"\211\262\204\261 \211\320N\206\325 \211\321N\262\262\202\261 \266\203\211\262\205\360 \211\203\356 N\205\360 J\266\203\262\211 \203 \202\323 *\202\366 \203\324\325 \"\210\313\211\314\315\316!\314\2041 \211\262\2041\f\262
\205/\317
\"\262\203\\\211\204\\\305N\203K\317\305N\"\211\262\2041\211\320N\206U\211\321N\262\262\2021\266\203\211\262\205p\211\203nN\205pJ\266\203\206\345\211\211\322N\262\205\345\211\211\322N\262\314\315\316!\314\204\244 \211\262\204\244\f\262
\205\242\317
\"\262\203\317\211\204\317\305N\203\276\317\305N\"\211\262\204\244\211\320N\206\310\211\321N\262\262\202\244\266\203\211\262\205\343\211\203\341N\205\343J\266\203\262\211 \203\363 \202\365\323 ))\207" [point bounds-type nar mode-local-active-mode major-mode mode-local-symbol-table require semantic/find semantic-current-tag-of-class function semantic-narrow-to-tag semantic-up-context nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-up-context-default error "No context of type %s to advance in" #1=#:override #2=#:override] 13 (#$ . 908)])
(put 'semantic-up-context 'mode-local-overload t)
#@100 Move the point up and out one context level.
Works with languages that use parenthetical grouping.
(defalias 'semantic-up-context-default #[nil "\3001 \301\302!\210\3030\207\210\304\207" [(error) up-list -1 nil t] 2 (#$ . 3117)])
#@147 Move POINT to the beginning of the current context.
Return non-nil if there is no upper context.
The default behavior uses `semantic-up-context'.
(defalias 'semantic-beginning-of-context #[(&optional point) "\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\205a J\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\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override point semantic-beginning-of-context nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-beginning-of-context-default] 13 (#$ . 3355)])
(put 'semantic-beginning-of-context 'mode-local-overload t)
#@114 Move POINT to the beginning of the current context via parenthesis.
Return non-nil if there is no upper context.
(defalias 'semantic-beginning-of-context-default #[(&optional point) "\203 b\210\301 \203 \302\207\303u\210\304\207" [point semantic-up-context t 1 nil] 1 (#$ . 4495)])
#@181 Move POINT to the end of the current context.
Return non-nil if there is no upper context.
Be default, this uses `semantic-up-context', and assumes parenthetical
block delimiters.
(defalias 'semantic-end-of-context #[(&optional point) "\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\205a J\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\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override point semantic-end-of-context nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-end-of-context-default] 13 (#$ . 4788)])
(put 'semantic-end-of-context 'mode-local-overload t)
#@108 Move POINT to the end of the current context via parenthesis.
Return non-nil if there is no upper context.
(defalias 'semantic-end-of-context-default #[(&optional point) "\203 b\210`\304 \204L \3051 \306\307!\210\310u0\202K \210\311 \203I \311 \211\312\n8)\313 !\2038 \314 !\202; \307H*b\210` W\203L b\202K b\210)\315\207" [point start tag o semantic-up-context (error) forward-sexp 1 -1 semantic-current-tag 4 overlayp overlay-end nil] 3 (#$ . 5938)])
#@57 Narrow the buffer to the extent of the current context.
(defalias 'semantic-narrow-to-context #[nil "\302\211\212\303 \204\f `)\212\304 \204 `) \205! \205! }*\207" [e b nil semantic-beginning-of-context semantic-end-of-context] 2 (#$ . 6408)])
#@63 Execute BODY with the buffer narrowed to the current context.
(defalias 'semantic-with-buffer-narrowed-to-context '(macro . #[(&rest body) "\301\302BB\207" [body save-restriction (semantic-narrow-to-context)] 3 (#$ . 6666)]))
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [put semantic-with-buffer-narrowed-to-context lisp-indent-function 0 add-hook edebug-setup-hook #[nil "\300\301\302\303#\207" [put semantic-with-buffer-narrowed-to-context edebug-form-spec (def-body)] 4]] 4)
#@155 Get the local variables based on POINT's context.
Local variables are returned in Semantic tag format.
This can be overridden with `get-local-variables'.
(defalias 'semantic-get-local-variables #[(&optional point) "\306\212 \203\n b\210\n\307\211\306\310\311!\306\2040 \f\211\262\2040
\262 \205. \312 \"\262\203[ \211\204[ \313N\203J \312\313N\"\211\262\2040 \211\314N\206T \211\315N\262\262\2020 \266\203\211\262\205o \211\203m N\205o J\266\203\206\346 \211\211\316N\262\205\346 \211\211\316N\262\306\310\311!\306\204\245 \f\211\262\204\245
\262 \205\243 \312 \"\262\203\320 \211\204\320 \313N\203\277 \312\313N\"\211\262\204\245 \211\314N\206\311 \211\315N\262\262\202\245 \266\203\211\262\205\344 \211\203\342 N\205\344 J\266\203\262\211 \203\364 \202\366 \317 ,\207" [semantic--progress-reporter point semantic-case-fold case-fold-search mode-local-active-mode major-mode nil semantic-get-local-variables override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-get-local-variables-default #1=#:override] 13 (#$ . 7161)])
(put 'semantic-get-local-variables 'mode-local-overload t)
#@167 Get local values from a specific context.
Uses the bovinator with the special top-symbol `bovine-inner-scope'
to collect tags, such as local variables or prototypes.
(defalias 'semantic-get-local-variables-default #[nil "\205\203 \306=?\205\203 \307\310!\211\203 \202\202 \311\211`\311 \312`\313\"\204D \204, `\212\314u\210\315\316`\212\317 \210`)\320\311\306% \")\202 \211\203Y \321
@\322\323 #\210
A\211\204J \203\200 \n\203\200 \212\nb\210\212\317 ?\205m `* \324p\n\206y \310\325&\210) ,)\207" [semantic--parse-table vars firstusefulstart start semantic-unmatched-syntax-hook vars2 t semantic-get-cache-data get-local-variables nil semantic-up-context function 1 append semantic-parse-region semantic-end-of-context bovine-inner-scope semantic--tag-put-property :filename buffer-file-name semantic-cache-data-to-buffer exit-cache-zone end] 8 (#$ . 8391)])
#@403 Get arguments (variables) from the current context at POINT.
Parameters are available if the point is in a function or method.
Return a list of tags unlinked from the originating buffer.
Arguments are obtained by overriding `get-local-arguments', or by the
default function `semantic-get-local-arguments-default'. This, must
return a list of tags, or a list of strings that will be converted to
tags.
(defalias 'semantic-get-local-arguments #[(&optional point) "\212\203 b\210 \306\211\307\310\311!\307\204, \211\262\204, \f\262
\205* \312
\"\262\203W \211\204W \305N\203F \312\305N\"\211\262\204, \211\313N\206P \211\314N\262\262\202, \266\203\211\262\205k \211\203i N\205k J\266\203\206\340 \211\211\315N\262\205\340 \211\211\315N\262\307\310\311!\307\204\237 \211\262\204\237 \f\262
\205\235 \312
\"\262\203\312 \211\204\312 \305N\203\271 \312\305N\"\211\262\204\237 \211\313N\206\303 \211\314N\262\262\202\237 \266\203\211\262\205\336 \211\203\334 N\205\336 J\266\203\262\211 \203\356 \202\360 \316 ) \307\211 ! \203\204 @ A \"\3171=\":\2059\"@;\2059\"A@9\2059\"A@\2059\320\"8<\2059\321\"8<0\202?\210\307)\203L\322 \307\323#\202| ;\203w\324 \307\211\211 # $ % &\325\326&\327\330%\331$#&,\332\333 #\202|\334\335 \"!B!\202\371 !\237-\207" [point semantic-case-fold case-fold-search mode-local-active-mode major-mode mode-local-symbol-table semantic-get-local-arguments nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-get-local-arguments-default (error) 2 3 semantic-tag-copy t semantic--tag-put-property apply semantic-tag variable :type :default-value :filename buffer-file-name error "Unknown parameter element %S" #1=#:override args arg tags tag attributes default-value type name] 13 (#$ . 9279)])
(put 'semantic-get-local-arguments 'mode-local-overload t)
#@119 Get arguments (variables) from the current context.
Parameters are available if the point is in a function or method.
(defalias 'semantic-get-local-arguments-default #[nil "\303 \211\205' \304\211\211A@) *=\205' \211\305\306\3078)\n\"+)\207" [tag class attribute semantic-current-tag function :arguments plist-get 2] 4 (#$ . 11216)])
#@254 Get all local variables for this context, and parent contexts.
Local variables are returned in Semantic tag format.
Be default, this gets local variables, and local arguments.
Optional argument POINT is the location to start getting the variables from.
(defalias 'semantic-get-all-local-variables #[(&optional point) "\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\205a J\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\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override point semantic-get-all-local-variables nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-get-all-local-variables-default] 13 (#$ . 11569)])
(put 'semantic-get-all-local-variables 'mode-local-overload t)
#@311 Get all local variables for this context.
Optional argument POINT is the location to start getting the variables from.
That is a cons (LOCAL-ARGUMENTS . LOCAL-VARIABLES) where:
- LOCAL-ARGUMENTS is collected by `semantic-get-local-arguments'.
- LOCAL-VARIABLES is collected by `semantic-get-local-variables'.
(defalias 'semantic-get-all-local-variables-default #[(&optional point) "\212\203 b\210 \303\304 \305 \"*\207" [point semantic-case-fold case-fold-search append semantic-get-local-arguments semantic-get-local-variables] 3 (#$ . 12829)])
#@99 Move to the end of the current command.
Be default, uses `semantic-command-separation-character'.
(defalias 'semantic-end-of-command #[nil "\304\211\305\306\307!\305\204\" \211\262\204\" \262\n\205 \310\n\"\262\203M \211\204M \302N\203< \310\302N\"\211\262\204\" \211\311N\206F \211\312N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\313N\262\205\326 \211\211\313N\262\305\306\307!\305\204\225 \211\262\204\225 \262\n\205\223 \310\n\"\262\203\300 \211\204\300 \302N\203\257 \310\302N\"\211\262\204\225 \211\311N\206\271 \211\312N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\342 \202\344 \314 )\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override semantic-end-of-command nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-end-of-command-default] 13 (#$ . 13386)])
(put 'semantic-end-of-command 'mode-local-overload t)
#@136 Move to the end of the current command.
Depends on `semantic-command-separation-character' to find the
beginning and end of a command.
(defalias 'semantic-end-of-command-default #[nil "\214\306 \210\307 p\310\216\311\f!\210\312\313
!\314\315#\203 \316u\202\" db-\207" [semantic-case-fold case-fold-search #1=#:buffer #2=#:table semantic-lex-syntax-table semantic-command-separation-character semantic-narrow-to-context syntax-table #[nil "rq\210\302 !)\207" [#1# #2# set-syntax-table] 2] set-syntax-table re-search-forward regexp-quote nil t -1] 4 (#$ . 14431)])
#@105 Move to the beginning of the current command.
Be default, uses `semantic-command-separation-character'.
(defalias 'semantic-beginning-of-command #[nil "\304\211\305\306\307!\305\204\" \211\262\204\" \262\n\205 \310\n\"\262\203M \211\204M \302N\203< \310\302N\"\211\262\204\" \211\311N\206F \211\312N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\313N\262\205\326 \211\211\313N\262\305\306\307!\305\204\225 \211\262\204\225 \262\n\205\223 \310\n\"\262\203\300 \211\204\300 \302N\203\257 \310\302N\"\211\262\204\225 \211\311N\206\271 \211\312N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\342 \202\344 \314 )\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override semantic-beginning-of-command nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-beginning-of-command-default] 13 (#$ . 15007)])
(put 'semantic-beginning-of-command 'mode-local-overload t)
#@142 Move to the beginning of the current command.
Depends on `semantic-command-separation-character' to find the
beginning and end of a command.
(defalias 'semantic-beginning-of-command-default #[nil "\214\306 \210\307 p\310\216\311\n!\210
\312x\210\313\314
!\312\315#\203& \316\225b\210\202) eb\210\317\312w-\207" [#1=#:buffer #2=#:table semantic-lex-syntax-table semantic-case-fold case-fold-search semantic-command-separation-character semantic-narrow-to-context syntax-table #[nil "rq\210\302 !)\207" [#1# #2# set-syntax-table] 2] set-syntax-table nil re-search-backward regexp-quote t 0 " \n"] 4 (#$ . 16082)])
#@59 Return the point at the beginning of the current command.
(defalias 'semantic-point-at-beginning-of-command #[nil "\212\300 \210`)\207" [semantic-beginning-of-command] 1 (#$ . 16706)])
(put 'semantic-point-at-beginning-of-command 'byte-optimizer 'byte-compile-inline-expand)
#@59 Return the point at the beginning of the current command.
(defalias 'semantic-point-at-end-of-command #[nil "\212\300 \210`)\207" [semantic-end-of-command] 1 (#$ . 16987)])
(put 'semantic-point-at-end-of-command 'byte-optimizer 'byte-compile-inline-expand)
#@51 Narrow the current buffer to the current command.
(defalias 'semantic-narrow-to-command #[nil "\212\300 \210`)\212\301 \210`)}\207" [semantic-beginning-of-command semantic-end-of-command] 2 (#$ . 17250)])
(put 'semantic-narrow-to-command 'byte-optimizer 'byte-compile-inline-expand)
#@63 Execute BODY with the buffer narrowed to the current command.
(defalias 'semantic-with-buffer-narrowed-to-command '(macro . #[(&rest body) "\301\302BB\207" [body save-restriction (semantic-narrow-to-command)] 3 (#$ . 17539)]))
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [put semantic-with-buffer-narrowed-to-command lisp-indent-function 0 add-hook edebug-setup-hook #[nil "\300\301\302\303#\207" [put semantic-with-buffer-narrowed-to-command edebug-form-spec (def-body)] 4]] 4)
#@235 Move point to the end of the current symbol under POINT.
This skips forward over symbols in a complex reference.
For example, in the C statement:
this.that().entry;
If the cursor is on `this', will move point to the ; after entry.
(defalias 'semantic-ctxt-end-of-symbol #[(&optional point) "\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\205a J\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\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override point semantic-ctxt-end-of-symbol nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-ctxt-end-of-symbol-default] 13 (#$ . 18035)])
(put 'semantic-ctxt-end-of-symbol 'mode-local-overload t)
#@204 Move point to the end of the current symbol under POINT.
This will move past type/field names when applicable.
Depends on `semantic-type-relation-separator-character', and will
work on C like languages.
(defalias 'semantic-ctxt-end-of-symbol-default #[(&optional point) "\203 b\210\306\307 \310#\311\n\312Q\f \313 \314 \315 p \316\216\317 !\210\320\321!\2035 \322\323!\210\202q \320\n!\204q \212\3241M \322\325!\210\322\323!\210\3130\202R \210\314\202X \205X \320\n!)\203q \322\325!\210\320\326!\203m \322\325!\210\202` \322\323!\210`\3271\262 \205\256 \320\326!\203\207 \322\323!\210\320\n!\204\224 \330\314!\210\202x \331\225b\210\320\321!\203\245 \322\323!\210\202\250 \314`\202x 0\202\266 \210b.\207" [point semantic-type-relation-separator-character fieldsep1 fieldsep semantic-case-fold case-fold-search mapconcat #[(a) "\301!\207" [a regexp-quote] 2] "\\|" "[ \n
]*\\(" "\\)[ \n
]*\\(\\w\\|\\s_\\)" t nil syntax-table #[nil "rq\210\302 !)\207" [#1=#:buffer #2=#:table set-syntax-table] 2] set-syntax-table looking-at "\\w\\|\\s_" forward-sexp 1 (error) -1 "\\s(" (error) error 0 continuesearch end #1# #2# semantic-lex-syntax-table] 4 (#$ . 19256)])
#@374 Return the current symbol the cursor is on at POINT in a list.
The symbol includes all logical parts of a complex reference.
For example, in C the statement:
this.that().entry
Would be object `this' calling method `that' which returns some structure
whose field `entry' is being reference. In this case, this function
would return the list:
( "this" "that" "entry" )
(defalias 'semantic-ctxt-current-symbol #[(&optional point) "\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\205a J\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\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override point semantic-ctxt-current-symbol nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-ctxt-current-symbol-default] 13 (#$ . 20446)])
(put 'semantic-ctxt-current-symbol 'mode-local-overload t)
#@183 Return the current symbol the cursor is on at POINT in a list.
This will include a list of type/field names when applicable.
Depends on `semantic-type-relation-separator-character'.
(defalias 'semantic-ctxt-current-symbol-default #[(&optional point) "\212\203 b\210\306\307 \310#\311\n\312Q\f \313\211 \314 p \315\216\316 !\210\212\317\320!\2037 \321\322!\210\202w \317\n!\204w \212\3231O \321\324!\210\321\322!\210\3250\202T \210\313\202Z \205Z \317\n!)\203w \326C\321\324!\210\317\327!\203s \321\324!\210\202f \321\322!\210` \3301\336 \212\324u\210\317\320!)\205\332 \321\324!\210\331` \"B` \321\324!\210\321\322!\210 `X\203\255 \332\313!\210)\317 !\203\323 \321\324!\210\317\327!\203\311 o\204\311 \321\324!\210\202\270 \321\322!\210` \202~ \332\313!\210\202~ 0\202\342 \210\202\343 \210). \207" [point semantic-type-relation-separator-character fieldsep1 fieldsep semantic-case-fold case-fold-search mapconcat #[(a) "\301!\207" [a regexp-quote] 2] "\\|" "[ \n
]*\\(" "\\)[ \n
]*\\(\\w\\|\\s_\\)" nil syntax-table #[nil "rq\210\302 !)\207" [#1=#:buffer #2=#:table set-syntax-table] 2] set-syntax-table looking-at "\\w\\|\\s_" forward-sexp 1 (error) -1 t "" "\\s(" (error) buffer-substring-no-properties error symlist end #1# #2# semantic-lex-syntax-table cp] 5 (#$ . 21810)])
#@173 Return the current symbol and bounds the cursor is on at POINT.
The symbol should be the same as returned by `semantic-ctxt-current-symbol'.
Return (PREFIX ENDSYM BOUNDS).
(defalias 'semantic-ctxt-current-symbol-and-bounds #[(&optional point) "\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\205a J\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\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override point semantic-ctxt-current-symbol-and-bounds nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-ctxt-current-symbol-and-bounds-default] 13 (#$ . 23125)])
(put 'semantic-ctxt-current-symbol-and-bounds 'mode-local-overload t)
#@157 Return the current symbol and bounds the cursor is on at POINT.
Uses `semantic-ctxt-current-symbol' to calculate the symbol.
Return (PREFIX ENDSYM BOUNDS).
(defalias 'semantic-ctxt-current-symbol-and-bounds-default #[(&optional point) "\212\203 `b\210\304 \305 !@\212\n\306\230\203 ``B\202Z \203= \307\n!\203= `\31013 \311\312!0\2027 \210\2028 \210`B\202Z \203Y \3131T \311\314!\210`\311\312!\210`B0\202Z \210\315\202Z \315) \n E,\207" [point prefix endsym bounds semantic-ctxt-current-symbol reverse "" looking-at (error) forward-sexp 1 (error) -1 nil] 3 (#$ . 24332)])
#@151 Return the current assignment near the cursor at POINT.
Return a list as per `semantic-ctxt-current-symbol'.
Return nil if there is nothing relevant.
(defalias 'semantic-ctxt-current-assignment #[(&optional point) "\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\205a J\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\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override point semantic-ctxt-current-assignment nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-ctxt-current-assignment-default] 13 (#$ . 24918)])
(put 'semantic-ctxt-current-assignment 'mode-local-overload t)
#@110 Return the current assignment near the cursor at POINT.
By default, assume that "=" indicates an assignment.
(defalias 'semantic-ctxt-current-assignment-default #[(&optional point) "\203 b\210 \306 p \307\216\310
!\210\3111J \214\212\312 \210`)\212\313 \210`)}\210\212\314\315w\210\31616 \317u0\202: \210\202; \210\320\321!\210\322\323!\210\324 *0\202L \210\315,\207" [point semantic-case-fold case-fold-search #1=#:buffer #2=#:table semantic-lex-syntax-table syntax-table #[nil "rq\210\302 !)\207" [#1# #2# set-syntax-table] 2] set-syntax-table (error) semantic-beginning-of-command semantic-end-of-command " =" nil (error) 1 re-search-backward "[^=]=\\([^=]\\|$\\)" forward-sexp -1 semantic-ctxt-current-symbol] 2 (#$ . 26075)])
#@244 Return the current function call the cursor is in at POINT.
The function returned is the one accepting the arguments that
the cursor is currently in. It will not return function symbol if the
cursor is on the text representing that function.
(defalias 'semantic-ctxt-current-function #[(&optional point) "\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\205a J\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\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override point semantic-ctxt-current-function nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-ctxt-current-function-default] 13 (#$ . 26820)])
(put 'semantic-ctxt-current-function 'mode-local-overload t)
#@143 Return the current function call the cursor is in at POINT.
The call will be identified for C like languages with the form
NAME ( args ... )
(defalias 'semantic-ctxt-current-function-default #[(&optional point) "\203 b\210 \306 p \307\216\310
!\210\212\311 \210\312\313!\205 \314 -\207" [point semantic-case-fold case-fold-search #1=#:buffer #2=#:table semantic-lex-syntax-table syntax-table #[nil "rq\210\302 !)\207" [#1# #2# set-syntax-table] 2] set-syntax-table semantic-up-context looking-at "(" semantic-ctxt-current-symbol] 2 (#$ . 28062)])
#@70 Return the index of the argument position the cursor is on at POINT.
(defalias 'semantic-ctxt-current-argument #[(&optional point) "\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\205a J\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\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override point semantic-ctxt-current-argument nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-ctxt-current-argument-default] 13 (#$ . 28623)])
(put 'semantic-ctxt-current-argument 'mode-local-overload t)
#@123 Return the index of the argument the cursor is on at POINT.
Depends on `semantic-function-argument-separation-character'.
(defalias 'semantic-ctxt-current-argument-default #[(&optional point) "\203 b\210 \306 p \307\216\310
!\210\311 \205: \212`\312 \313 \210\314\315!\316#\2037 T\202# +,\207" [point semantic-case-fold case-fold-search #1=#:buffer #2=#:table semantic-lex-syntax-table syntax-table #[nil "rq\210\302 !)\207" [#1# #2# set-syntax-table] 2] set-syntax-table semantic-ctxt-current-function 1 semantic-up-context re-search-forward regexp-quote t idx p semantic-function-argument-separation-character] 4 (#$ . 29691)])
#@294 Calculate a thing identified by the current cursor position.
Calls previously defined `semantic-ctxt-current-...' calls until something
gets a match. See `semantic-ctxt-current-symbol',
`semantic-ctxt-current-function', and `semantic-ctxt-current-assignment'
for details on the return value.
(defalias 'semantic-ctxt-current-thing #[nil "\300 \206\f \301 \206\f \302 \207" [semantic-ctxt-current-symbol semantic-ctxt-current-function semantic-ctxt-current-assignment] 1 (#$ . 30347)])
#@270 Return a list of tag classes that are allowed at POINT.
If POINT is nil, the current buffer location is used.
For example, in Emacs Lisp, the symbol after a ( is most likely
a function. In a makefile, symbols after a : are rules, and symbols
after a $( are variables.
(defalias 'semantic-ctxt-current-class-list #[(&optional point) "\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\205a J\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\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override point semantic-ctxt-current-class-list nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-ctxt-current-class-list-default] 13 (#$ . 30840)])
(put 'semantic-ctxt-current-class-list 'mode-local-overload t)
#@118 Return a list of tag classes that are allowed at POINT.
Assume a functional typed language. Uses very simple rules.
(defalias 'semantic-ctxt-current-class-list-default #[(&optional point) "\212\203 b\210\303 \211\203K \304\211\211A@)\n*=\203# \305\202L \306\211\211A@)\n*=\204C \307\211\211A@)\n*=\203G \310\202L \311\202L \312*\207" [point tag class semantic-current-tag function (function variable type) type variable (type) nil (type)] 3 (#$ . 32116)])
#@201 Return the major mode active at POINT.
POINT defaults to the value of point in current buffer.
You should override this function in multiple mode buffers to
determine which major mode apply at point.
(defalias 'semantic-ctxt-current-mode #[(&optional point) "\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\205a J\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\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override point semantic-ctxt-current-mode nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-ctxt-current-mode-default] 13 (#$ . 32596)])
(put 'semantic-ctxt-current-mode 'mode-local-overload t)
#@156 Return the major mode active at POINT.
POINT defaults to the value of point in current buffer.
This default implementation returns the current major mode.
(defalias 'semantic-ctxt-current-mode-default #[(&optional point) "\207" [major-mode] 1 (#$ . 33779)])
#@220 Return a list of type names currently in scope at POINT.
The return value can be a mixed list of either strings (names of
types that are in scope) or actual tags (type declared locally
that may or may not have a name.)
(defalias 'semantic-ctxt-scoped-types #[(&optional point) "\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\205a J\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\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override point semantic-ctxt-scoped-types nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-ctxt-scoped-types-default] 13 (#$ . 34045)])
(put 'semantic-ctxt-scoped-types 'mode-local-overload t)
#@155 Return a list of scoped types by name for the current context at POINT.
This is very different for various languages, and does nothing unless
overridden.
(defalias 'semantic-ctxt-scoped-types-default #[(&optional point) "\300\207" [nil] 1 (#$ . 35247)])
#@303 Return a list of package tags or names which are being imported at POINT.
The return value is a list of strings which are package names
that are implied in code. Thus a C++ symbol:
foo::bar();
where there is a statement such as:
using baz;
means that the first symbol might be:
baz::foo::bar();
(defalias 'semantic-ctxt-imported-packages #[(&optional point) "\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\205a J\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\324 J\266\203\262\211\205\340 \f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override point semantic-ctxt-imported-packages nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete] 13 (#$ . 35508)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put semantic-ctxt-imported-packages mode-local-overload t provide semantic/ctxt] 4)
Mini Shell