WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/semantic
Viewing File: /usr/share/emacs/24.3/lisp/cedet/semantic/ctxt.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:56:52 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/ctxt.el
;;; in Emacs version 24.3.1
;;; 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 ";" (#$ . 582))
(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 "," (#$ . 813))
(make-variable-buffer-local 'semantic-function-argument-separation-character)
#@422 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\211
\316!\314
\204N\211\204N\205L\317\"
\203{\204{
\320N\203j\317
\320N\"\211\204N
\211\321N\206u
\322N)\211\204R,\211\205\222\f\203\217\fN\205\222J+\206\211\323N)\205\211\323N)\314\315\211
\316!\314
\204\324\211\204\324\205\322\317\"
\203\204
\320N\203\360\317
\320N\"\211\204\324
\211\321N\206\373
\322N)\211\204\330,\211\205\f\203\fN\205J+)\211\203& \202(\324 *\202B	\2035\325\326	\"\210\313\211\314\315\211
\316!\314
\204g\211\204g\205e\317\"
\203\224\204\224
\320N\203\203\317
\320N\"\211\204g
\211\321N\206\216
\322N)\211\204k,\211\205\253\f\203\250\fN\205\253J+\2062\211\323N)\2052\211\323N)\314\315\211
\316!\314
\204\355\211\204\355\205\353\317\"
\203\204
\320N\203	\317
\320N\"\211\204\355
\211\321N\206
\322N)\211\204\361,\211\2051\f\203.\fN\2051J+)\211\203? \202A\324 ))\207" [point bounds-type nar overload property mode 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-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-up-context-default error "No context of type %s to advance in" symbol bind name mode-local-active-mode major-mode #1=#:override #2=#:override] 5 (#$ . 1062)])
(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 "\300\301\302\217\207" [nil (byte-code "\300\301!\210\302\207" [up-list -1 nil] 2) ((error t))] 3 (#$ . 3175)])
#@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) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\360!\202\364\317!)\207" [overload property mode symbol bind name semantic-beginning-of-context nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-beginning-of-context-default mode-local-active-mode major-mode #1=#:override point] 5 (#$ . 3438)])
(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 (#$ . 4540)])
#@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) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\360!\202\364\317!)\207" [overload property mode symbol bind name semantic-end-of-context nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-end-of-context-default mode-local-active-mode major-mode #1=#:override point] 5 (#$ . 4833)])
(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`\302 \204\303\304\305\217\210)\303\207" [point start semantic-up-context nil (byte-code "\300\301!\210\302u\207" [forward-sexp 1 -1] 2) ((error (byte-code "\303 \203-\303 \211\3048)\305	!\203\306	!\202	\307H*b\210`\nW\2030\nb\210\2020\nb\210\303\207" [tag o start semantic-current-tag 4 semantic-overlay-p semantic-overlay-end 1] 3)))] 3 (#$ . 5945)])
#@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 (#$ . 6502)])
#@63 Execute BODY with the buffer narrowed to the current context.
(defalias 'semantic-with-buffer-narrowed-to-context '(macro . #[(&rest body) "\301\302BB\207" [body save-restriction (semantic-narrow-to-context)] 3 (#$ . 6760)]))
(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\211\311!\306\204D\211\204D\205B\312\"\203x\204x\313N\203c\312\313N\"\211\204D\211\314N\206q\315N)\211\204I,\211\205\217
\203\214
N\205\217J+\206#\f\211\316N)\205#\f\211\316N)\306\310\211\311!\306\204\327\211\204\327\205\325\312\"\203\204\313N\203\366\312\313N\"\211\204\327\211\314N\206\315N)\211\204\334,\211\205\"
\203
N\205\"J+)\211\2030 \2022\317 ,\207" [semantic--progress-reporter point semantic-case-fold case-fold-search overload property nil semantic-get-local-variables override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-get-local-variables-default mode symbol bind name mode-local-active-mode major-mode #1=#:override] 5 (#$ . 7255)])
(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\217\306=?\205\217	\307=?\205\217\310\311!\211\203\n\202\216\312\211`\312\313`\314\"\204L\n\2044`\212\315u\210\316\317`\212\320 \210`)\321\312\306%\n\")\202'\n\211\203e\322@\323\324 #\210A\211\204S\n\203\214\203\214\212b\210\212\320 ?\205y`*\325p\206\205\f\n\311\326&\210)\n,)\207" [semantic--parse-table semantic-parse-tree-state vars firstusefulstart start semantic-unmatched-syntax-hook t unparseable 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 vars2 end] 8 (#$ . 8466)])
#@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\211
\311!\307 
\204<!\211\204<\"\205:\312 \"
\203i\204i
\313N\203X\312 
\313N\"\211\204<
\211\314N\206c
\315N)\211\204@,\211\205\200\f\203}\fN\205\200J+\206\211\316N)\205\211\316N)\307\310\211
\311!\307 
\204\302!\211\204\302\"\205\300\312 \"
\203\357\204\357
\313N\203\336\312 
\313N\"\211\204\302
\211\314N\206\351
\315N)\211\204\306,\211\205\f\203\fN\205J+)\211#\203# \202\317 )$\307\211%&$\203{$@%$A$%'\307\320\321\217)\203C\322%\307\323#\202s%;\203n\324%\307\211\211()* \325\326 \327\330*\331)(&,\332\333 #\202s\334\335%\"&B&\202&\237-\207" [point semantic-case-fold case-fold-search overload property mode semantic-get-local-arguments nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-get-local-arguments-default (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) semantic-tag-copy t semantic--tag-put-property apply semantic-tag variable :type :default-value :filename buffer-file-name error "Unknown parameter element %S" symbol bind name mode-local-active-mode major-mode #1=#:override args arg tags tag attributes default-value type] 11 (#$ . 9421)])
(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\211A@)	*=\205'\211\305\306\3078)\n\"+)\207" [tag class attribute semantic-current-tag function :arguments plist-get 2] 4 (#$ . 11325)])
#@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) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\360!\202\364\317!)\207" [overload property mode symbol bind name semantic-get-all-local-variables nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-get-all-local-variables-default mode-local-active-mode major-mode #1=#:override point] 5 (#$ . 11678)])
(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 (#$ . 12900)])
#@99 Move to the end of the current command.
Be default, uses `semantic-command-separation-character'.
(defalias 'semantic-end-of-command #[nil "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\356 \202\360\317 )\207" [overload property mode symbol bind name semantic-end-of-command nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-end-of-command-default mode-local-active-mode major-mode #1=#:override] 5 (#$ . 13457)])
(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 ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table re-search-forward regexp-quote nil t -1] 4 (#$ . 14464)])
#@105 Move to the beginning of the current command.
Be default, uses `semantic-command-separation-character'.
(defalias 'semantic-beginning-of-command #[nil "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\356 \202\360\317 )\207" [overload property mode symbol bind name semantic-beginning-of-command nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-beginning-of-command-default mode-local-active-mode major-mode #1=#:override] 5 (#$ . 15055)])
(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 ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table nil re-search-backward regexp-quote t 0 " 	\n"] 4 (#$ . 16092)])
#@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 (#$ . 16731)])
(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 (#$ . 17012)])
(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 (#$ . 17275)])
(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\302BB\207" [body save-restriction (semantic-narrow-to-command)] 3 (#$ . 17564)]))
(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)
#@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) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\360!\202\364\317!)\207" [overload property mode symbol bind name semantic-ctxt-current-symbol nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-ctxt-current-symbol-default mode-local-active-mode major-mode #1=#:override point] 5 (#$ . 18060)])
(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\202e\317\n!\204e\212\313\323\324\217\205H\317\n!)\203e\325C\321\326!\210\317\327!\203a\321\326!\210\202T\321\322!\210`\313\330\331\217\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 ((byte-code "rq\210\302	!\210)\302\207" [#1=#:buffer #2=#:table set-syntax-table] 2)) set-syntax-table looking-at "\\w\\|\\s_" forward-sexp 1 (byte-code "\300\301!\210\300\302!\210\303\207" [forward-sexp -1 1 t] 2) ((error)) "" -1 "\\s(" (byte-code "\212\304u\210\305\306!)\203V\307\304!\210\310`\"	B`\307\304!\210\307\311!\210\n`X\203*\312\313!\210)\305!\203O\307\304!\210\305\314!\203Fo\204F\307\304!\210\2025\307\311!\210`\202\312\313!\210\202\313\207" [end symlist cp fieldsep -1 looking-at "\\w\\|\\s_" forward-sexp buffer-substring-no-properties 1 error nil "\\s("] 3) ((error)) symlist end #1# #2# semantic-lex-syntax-table] 5 (#$ . 19386)])
#@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) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\360!\202\364\317!)\207" [overload property mode symbol bind name semantic-ctxt-current-symbol-and-bounds nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-ctxt-current-symbol-and-bounds-default mode-local-active-mode major-mode #1=#:override point] 5 (#$ . 20810)])
(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\202>	\2032\307\n!\2032`\310\311\312\217\210`B\202>	\203=\310\313\314\217\202>\310)	\nE,\207" [point prefix endsym bounds semantic-ctxt-current-symbol reverse "" looking-at nil (forward-sexp 1) ((error)) (byte-code "\300\301!\210`\300\302!\210`B\207" [forward-sexp -1 1] 3) ((error))] 4 (#$ . 21979)])
#@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) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\360!\202\364\317!)\207" [overload property mode symbol bind name semantic-ctxt-current-assignment nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-ctxt-current-assignment-default mode-local-active-mode major-mode #1=#:override point] 5 (#$ . 22586)])
(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\311\312\313\217,\207" [point semantic-case-fold case-fold-search #1=#:buffer #2=#:table semantic-lex-syntax-table syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table nil (byte-code "\214\212\300 \210`)\212\301 \210`)}\210\212\302\303w\210\303\304\305\217\210\306\307!\210\310\311!\210\312 *\207" [semantic-beginning-of-command semantic-end-of-command " 	=" nil (forward-char 1) ((error)) re-search-backward "[^=]=\\([^=]\\|$\\)" forward-sexp -1 semantic-ctxt-current-symbol] 3) ((error))] 3 (#$ . 23705)])
#@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) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\360!\202\364\317!)\207" [overload property mode symbol bind name semantic-ctxt-current-function nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-ctxt-current-function-default mode-local-active-mode major-mode #1=#:override point] 5 (#$ . 24492)])
(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 ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table semantic-up-context looking-at "(" semantic-ctxt-current-symbol] 2 (#$ . 25696)])
#@70 Return the index of the argument position the cursor is on at POINT.
(defalias 'semantic-ctxt-current-argument #[(&optional point) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\360!\202\364\317!)\207" [overload property mode symbol bind name semantic-ctxt-current-argument nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-ctxt-current-argument-default mode-local-active-mode major-mode #1=#:override point] 5 (#$ . 26272)])
(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 ((byte-code "rq\210\302	!\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 (#$ . 27302)])
#@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 (#$ . 27973)])
#@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) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\360!\202\364\317!)\207" [overload property mode symbol bind name semantic-ctxt-current-class-list nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-ctxt-current-class-list-default mode-local-active-mode major-mode #1=#:override point] 5 (#$ . 28466)])
(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\211A@)\n*=\203#\305\202L	\306\211\211A@)\n*=\204C	\307\211\211A@)\n*=\203G\310\202L\311\202L\312*\207" [point tag class semantic-current-tag function (function variable type) type variable (type) nil (type)] 3 (#$ . 29704)])
#@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) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\360!\202\364\317!)\207" [overload property mode symbol bind name semantic-ctxt-current-mode nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-ctxt-current-mode-default mode-local-active-mode major-mode #1=#:override point] 5 (#$ . 30184)])
(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 (#$ . 31329)])
#@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) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\360!\202\364\317!)\207" [overload property mode symbol bind name semantic-ctxt-scoped-types nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-ctxt-scoped-types-default mode-local-active-mode major-mode #1=#:override point] 5 (#$ . 31595)])
(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 (#$ . 32759)])
#@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) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\205\355!)\207" [overload property mode symbol bind name semantic-ctxt-imported-packages nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete mode-local-active-mode major-mode #1=#:override point] 5 (#$ . 33020)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put semantic-ctxt-imported-packages mode-local-overload t provide semantic/ctxt] 4)
F1l3 Manager
