Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/analyze/complete.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/analyze)
#@89 For the tag TYPE, return any constant symbols of TYPE.
Used as options when completing.
(defalias 'semantic-analyze-type-constants #[(type) "\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 type semantic-analyze-type-constants nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-analyze-type-constants-default] 13 (#$ . 436)])
(put 'semantic-analyze-type-constants 'mode-local-overload t)
#@23 Do nothing with TYPE.
(defalias 'semantic-analyze-type-constants-default #[(type) "\300\207" [nil] 1 (#$ . 1512)])
#@59 Return the tags in TAGS that are of classes in CLASSLIST.
(defalias 'semantic-analyze-tags-of-class-list #[(tags classlist) "\303\304\305\306\n\"\"\211)\207" [tags origc classlist apply nconc mapcar #[(class) "\305!\306\211\203\" \n@\211 A@)=\203 \n@ B\nA\211\204\n \237*\207" [origc result tags class tag semantic-something-to-tag-table nil] 3]] 6 (#$ . 1633)])
#@921 Return a list of semantic tags which are possible completions.
CONTEXT is either a position (such as point), or a precalculated
context. Passing in a context is useful if the caller also needs
to access parts of the analysis.
The remaining FLAGS arguments are passed to the mode specific completion engine.
Bad flags should be ignored by modes that don't use them.
See `semantic-analyze-possible-completions-default' for details on the default FLAGS.
Completions run through the following filters:
* Elements currently in scope
* Constants currently in scope
* Elements match the :prefix in the CONTEXT.
* Type of the completion matches the type of the context.
Context type matching can identify the following:
* No specific type
* Assignment into a variable of some type.
* Argument to a function with type constraints.
When called interactively, displays the list of possible completions
in a buffer.
(defalias 'semantic-analyze-possible-completions #[(context &rest flags) "\203\306 p\307\216\310 !\210\311\f!\203 \f\202 \312\f!\211 \204- \313\314!\2052\315\316!\2022\3171(\320\211\321\322\323!\321\204V
\211\262\204V )\262\205T \324\"\262\203\201 \211\204\201 \325N\203p \324\325N\"\211\262\204V \211\326N\206z \211\327N\262\262\202V \266\203\211\262\205\225 \211\203\223 N\205\225 J\266\203\206
\211\211\330N\262\205
\211\211\330N\262\321\322\323!\321\204\314
\211\262\204\314 )\262\205\312 \324\"\262\203\367 \211\204\367 \325N\203\346 \324\325N\"\211\262\204\314 \211\326N\206\360 \211\327N\262\262\202\314 \266\203\211\262\205 \211\203 N\205 J\266\203\262\211 *\203 *\f+\"\202#\331\f+\")0\2022 ,\332\333,\"\210)\321 -\313\314!\203{. /r\334\335!q\210p\336 \210/.\321\21101\337\2112\337 3 4\340 \210\341\342!\210+\211 5 6\343-\344p#\210\3455!\210+\346\347\335!!\210--\207\313\314!\205\210\315\350!\207" [semantic-new-buffer-fcn-was-run #1=#:buffer #2=#:table semantic-lex-syntax-table context mode-local-active-mode syntax-table #[nil "rq\210\302 !)\207" [#1# #2# set-syntax-table] 2] set-syntax-table semantic-analyze-context--eieio-childp semantic-analyze-current-context called-interactively-p any error "Nothing to complete" (debug error) semantic-analyze-possible-completions nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-analyze-possible-completions-default message "%S" get-buffer-create "*Possible Completions*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook semantic-analyze-princ-sequence "" internal-temp-output-buffer-show shrink-window-if-larger-than-buffer get-buffer-window "Buffer was not parsed by Semantic." major-mode #3=#:override flags #4=#:err ans default-directory #5=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #6=#:buf standard-output] 13 (#$ . 2014) "d"])
(put 'semantic-analyze-possible-completions 'mode-local-overload t)
#@387 Default method for producing smart completions.
Argument CONTEXT is an object specifying the locally derived context.
The optional argument FLAGS changes which return options are returned.
FLAGS can be any number of:
`no-tc' - do not apply data-type constraint.
`no-longprefix' - ignore long multi-symbol prefixes.
`no-unique' - do not apply unique by name filtering.
(defalias 'semantic-analyze-possible-completions-default #[(context &optional flags) "\306 !\307 \310\"\307 \304\" \307 \305\" \311\211 . /\307 \312\"\211 \n\205* \307\n\313\" \311\211 0 1\311 2\3143>? 4\3153>? 5\3163>? 65\204W \317\f!@C\311\317\f!@\211. 7\3201\221 7:\205\215 7@;\205\215 7A@9\205\215 7A@\205\215 \32178<\205\215 \32278<0\202\223 \210\311)\203\240 .\211 7@)..\204\255 \n\204\255 \323\324!\210.\204\265 \325.\317
!@\211/\203/ 7\3201\364 7:\205\360 7@;\205\360 7A@9\205\360 7A@\205\360 \32178<\205\360 \32278<0\202\366 \210\311)\203/\211 7A@)\326=\204d\311/\fG\327V\203d\317\f!A@ 8\323\3308 7\3201O7:\205K7@;\205K7A@9\205K7A@\205K\32178<\205K\32278<0\202Q\210\311)\203\\\3318!\202a\332\3338\"\"\210)/\203\262.G 9\334\335/\n\"!\311 :\211 ;\203\251\336.\337\311;@\211 7@)\3379<&\340=\203\240;@:B:;A\211;\204:\237+1\202B.G 9\334 !\311 :\211 ;\203\356\336.\337\311;@\211 7@)\3379<&\340=\203\345;@:B:;A\211;\204\304:\237+.G 9\334\n\205\307\n\341\"!\311 :\211 ;\2036\336.\337\311;@\211 7@)\3379<&\340=\203-;@:B:;A\211;\204\f:\237+\244\342.!\24411\n\211 7@) = >10\3111>\203@4\203@>@\343 ? 7\3447 7\32178)?\"*\2047/\203\257>@\345 ? 7\3447 7\32178)?\"*\2047>@\346 ? 7\3447 7\32178)?\"*\2047\n\203/=\347>@\211 7\350 ? 7\3447 7\32178)?\"+!\230\203\337>@1B1\2027>@\211 7\350 ? 7\3447 7\32178)?\"+\2037\351>@\n\"\211 @\203+@\211 7\352 ? 7\3447 7\32178)?\"+\203+>@1B1)\2027>@1B1>A\211>\204Z\n\203\227\353\n!\211 A\203\226.G 9\334A!\311 :\211 ;\203\211\336.\337\311;@\211 7@)\3379<&\340=\203\200;@:B:;A\211;\204_:\237+A1A\2441)* \203\243\3541 \"16\203\2771\203\266\3551!1\202\310\3550!1\202\3101\204\310011.\207" [context a desired-type desired-class prefix prefixtypes semantic-analyze-type-constraint eieio-oref prefixclass nil scope localvar no-tc no-longprefix no-unique reverse (error) 2 3 error "Nothing to complete" "" type 1 "Cannot find types for `%s'" semantic-format-tag-prototype format "%S" semantic-something-to-tag-table semantic-analyze-scoped-type-parts compare-strings 0 t fullscope semantic-analyze-find-tags-by-prefix :operator-flag plist-get :constructor-flag :destructor-flag semantic-analyze-type-to-name :type semantic-analyze-tag-type :members semantic-analyze-type-constants semantic-analyze-tags-of-class-list semantic-unique-tag-table-by-name completetext completetexttype origc c any flags do-typeconstraint do-longprefix do-unique tag errprefix l result tags semantic-case-fold dtname loopc attribute att constants] 10 (#$ . 5068)])
(provide 'semantic/analyze/complete)
Mini Shell