WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/semantic
Viewing File: /usr/share/emacs/24.3/lisp/cedet/semantic/symref.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:57:08 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/symref.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)
#@153 *The active symbol reference tool name.
The tool symbol can be 'detect, or a symbol that is the name of
a tool that can be used for symbol referencing.
(defvar semantic-symref-tool 'detect (#$ . -585))
(make-variable-buffer-local 'semantic-symref-tool)
#@296 Alist of tools usable by `semantic-symref'.
Each entry is of the form:
   ( PREDICATE . KEY )
Where PREDICATE is a function that takes a directory name for the
root of a project, and returns non-nil if the tool represented by KEY
is supported.

If no tools are supported, then 'grep is assumed.
(defvar semantic-symref-tool-alist '(((lambda (rootdir) (file-exists-p (expand-file-name "GPATH" rootdir))) . global) ((lambda (rootdir) (file-exists-p (expand-file-name "ID" rootdir))) . idutils) ((lambda (rootdir) (file-exists-p (expand-file-name "cscope.out" rootdir))) . cscope)) (#$ . 845))
#@109 Calculate the root directory for a symref search.
Start with and EDE project, or use the default directory.
(defalias 'semantic-symref-calculate-rootdir #[nil "\304\305!\205\f\205\f\306 \211\203\307	!\202\n	\203*\310\311\312\217\203*\313!\202+*\207" [ede-minor-mode rootproj default-directory rootdirbase featurep ede ede-toplevel ede-project-root-directory nil (eieio-oref rootproj :metasubproject) ((error)) ede-up-directory] 4 (#$ . 1443)])
#@55 Detect the symref tool to use for the current buffer.
(defalias 'semantic-symref-detect-symref-tool #[nil "\304=\204\207\305 \n\211\203*\304=\203*@@	!\203#@AA\211\204\304=\2032\306*\207" [semantic-symref-tool rootdir semantic-symref-tool-alist tools detect semantic-symref-calculate-rootdir grep] 3 (#$ . 1907)])
#@109 Instantiate a new symref search object.
ARGS are the initialization arguments to pass to the created class.
(defalias 'semantic-symref-instantiate #[(&rest args) "\305\306 !\307\310P!\311\211\312\313\217\204\314\315\"\210\316\317	\f#\211+\207" [srt class inst semantic-symref-tool args symbol-name semantic-symref-detect-symref-tool intern-soft "semantic-symref-tool-" nil (byte-code "\301N\302H\303=\207" [class eieio-class-definition 0 defclass] 2) ((error)) error "Unknown symref tool %s" apply make-instance] 5 (#$ . 2248)])
#@36 The last calculated symref result.
(defvar semantic-symref-last-result nil (#$ . 2792))
#@48 Run the last symref data result in Data Debug.
(defalias 'semantic-symref-data-debug-last-result #[nil "\301\302!\210\203\303\304!\210\305\306\"\207\307\310!\207" [semantic-symref-last-result require eieio-datadebug data-debug-new-buffer "*Symbol Reference ADEBUG*" data-debug-insert-object-slots "]" message "Empty results."] 3 (#$ . 2886) nil])
#@421 Find a list of references to NAME in the current project.
Optional SCOPE specifies which file set to search.  Defaults to 'project.
Refers to `semantic-symref-tool', to determine the reference tool to use
for the current buffer.
Returns an object of class `semantic-symref-result'.
TOOL-RETURN is an optional symbol, which will be assigned the tool used
to perform the search.  This was added for use by a test harness.
(defalias 'semantic-symref-find-references-by-name #[(name &optional scope tool-return) "\306\307\310\311\312	\206\313\314\315&\316\n!\f\203\f\nL\210\211\317\320!\203(\321 \210*\207" [name scope inst result tool-return semantic-symref-last-result semantic-symref-instantiate :searchfor :searchtype symbol :searchscope project :resulttype line semantic-symref-get-result called-interactively-p interactive semantic-symref-data-debug-last-result] 9 (#$ . 3244) "sName: "])
#@277 Find a list of tags by NAME in the current project.
Optional SCOPE specifies which file set to search.  Defaults to 'project.
Refers to `semantic-symref-tool', to determine the reference tool to use
for the current buffer.
Returns an object of class `semantic-symref-result'.
(defalias 'semantic-symref-find-tags-by-name #[(name &optional scope) "\305\306\307\310\311	\206\312\313\314&\315\n!\211\211\316\317!\203 \320 \210*\207" [name scope inst result semantic-symref-last-result semantic-symref-instantiate :searchfor :searchtype tagname :searchscope project :resulttype line semantic-symref-get-result called-interactively-p interactive semantic-symref-data-debug-last-result] 10 (#$ . 4153) "sName: "])
#@283 Find a list of references to NAME in the current project.
Optional SCOPE specifies which file set to search.  Defaults to 'project.
Refers to `semantic-symref-tool', to determine the reference tool to use
for the current buffer.
Returns an object of class `semantic-symref-result'.
(defalias 'semantic-symref-find-tags-by-regexp #[(name &optional scope) "\305\306\307\310\311	\206\312\313\314&\315\n!\211\211\316\317!\203 \320 \210*\207" [name scope inst result semantic-symref-last-result semantic-symref-instantiate :searchfor :searchtype tagregexp :searchscope project :resulttype line semantic-symref-get-result called-interactively-p interactive semantic-symref-data-debug-last-result] 10 (#$ . 4876) "sName: "])
#@283 Find a list of references to NAME in the current project.
Optional SCOPE specifies which file set to search.  Defaults to 'project.
Refers to `semantic-symref-tool', to determine the reference tool to use
for the current buffer.
Returns an object of class `semantic-symref-result'.
(defalias 'semantic-symref-find-tags-by-completion #[(name &optional scope) "\305\306\307\310\311	\206\312\313\314&\315\n!\211\211\316\317!\203 \320 \210*\207" [name scope inst result semantic-symref-last-result semantic-symref-instantiate :searchfor :searchtype tagcompletions :searchscope project :resulttype line semantic-symref-get-result called-interactively-p interactive semantic-symref-data-debug-last-result] 10 (#$ . 5609) "sName: "])
#@283 Find a list of references to NAME in the current project.
Optional SCOPE specifies which file set to search.  Defaults to 'project.
Refers to `semantic-symref-tool', to determine the reference tool to use
for the current buffer.
Returns an object of class `semantic-symref-result'.
(defalias 'semantic-symref-find-file-references-by-name #[(name &optional scope) "\305\306\307\310\311	\206\312\313\314&\315\n!\211\211\316\317!\203 \320 \210*\207" [name scope inst result semantic-symref-last-result semantic-symref-instantiate :searchfor :searchtype regexp :searchscope project :resulttype file semantic-symref-get-result called-interactively-p interactive semantic-symref-data-debug-last-result] 10 (#$ . 6351) "sName: "])
#@331 Find a list of occurrences of TEXT in the current project.
TEXT is a regexp formatted for use with egrep.
Optional SCOPE specifies which file set to search.  Defaults to 'project.
Refers to `semantic-symref-tool', to determine the reference tool to use
for the current buffer.
Returns an object of class `semantic-symref-result'.
(defalias 'semantic-symref-find-text #[(text &optional scope) "\305\306\307\310\311	\206\312\313\314&\315\n!\211\211\316\317!\203 \320 \210*\207" [text scope inst result semantic-symref-last-result semantic-symref-instantiate :searchfor :searchtype regexp :searchscope project :resulttype line semantic-symref-get-result called-interactively-p interactive semantic-symref-data-debug-last-result] 10 (#$ . 7090) "sEgrep style Regexp: "])
(byte-code "\300\301\302\303\304$\210\305\306\307\306\310\"\"\210\311\306\302\301\312$\210\305\313\307\313\314\"\"\210\311\313\302\301\315$\210\300\316\302\317\320$\210\305\321\307\321\322\"\"\210\311\321\302\316\323$\210\305\324\307\324\325\"\"\210\311\324\302\316\326$\210\305\327\307\327\330\"\"\210\311\327\302\316\331$\210\305\332\307\332\333\"\"\210\311\332\302\316\334$\210\335\336!\207" [eieio-defclass semantic-symref-result nil ((created-by :initarg :created-by :type semantic-symref-tool-baseclass :documentation "Back-pointer to the symref tool creating these results.") (hit-files :initarg :hit-files :type list :documentation "The list of files hit.") (hit-text :initarg :hit-text :type list :documentation "If the result doesn't provide full lines, then fill in hit-text.\nGNU Global does completion search this way.") (hit-lines :initarg :hit-lines :type list :documentation "The list of line hits.\nEach element is a cons cell of the form (LINE . FILENAME).") (hit-tags :initarg :hit-tags :type list :documentation "The list of tags with hits in them.\nUse the  `semantic-symref-hit-tags' method to get this list.")) ("The results from a symbol reference search.") eieio--defalias semantic-symref-result-get-files eieio--defgeneric-init-form #1="Get the list of files from the symref result RESULT." eieio--defmethod #[(result) "\306\307\"\203\f\310\311\"\207\310\312\"\313\314	\"\315\n@C\nA\211\315\211\203<
@\211@\230\2045\fB
A\211\204'*\316\311\237#+\207" [result lines files ans F --dolist-tail-- slot-boundp :hit-files eieio-oref hit-files :hit-lines mapcar #[(a) "A\207" [a] 1] nil eieio-oset] 5 #1#] semantic-symref-result-get-tags #2="Get the list of tags from the symref result RESULT.\nOptional OPEN-BUFFERS indicates that the buffers that the hits are\nin should remain open after scanning.\nNote: This can be quite slow if most of the hits are not in buffers\nalready." #[(result &optional open-buffers) "\306\307\"\203\310\311\"\203\310\311\"\207\310\312\"\310\211\313\"\314\"\310\211\313\"\315\"\316\211\211\212\317\320\")\204A\321\322	\"\210\316\211\203\252@\211\203e\323\n@\"\204e\nB\202\241\203\241\324\n@\325\326\3278)\"*\325\326\3278)\"*\"\330\n@\325#\210)A\211\204K*\331\307\n\237#.\207" [result buffs-to-kill out ans searchtype txt slot-boundp :hit-tags eieio-oref hit-tags :hit-lines :created-by :searchfor :searchtype nil mapcar #[(hit) "@A\306\n!\307\203q\210\2029
\203%\310\311\n\312\")\202)\313\n\312\"\211q\210B\314 \210)eb\210	Sy\210\315\316!\317 \312#\203P\320\224b\210\321 \322=\203l\f\211@)\230\203l\323 \206k\f\f\203}\324\f\307\312#\325\f\326	C#\210\f,\207" [hit line file buff tag open-buffers find-buffer-visiting nil never find-file-noselect t semantic-find-file-noselect semantic-fetch-tags re-search-forward regexp-quote point-at-eol 0 semantic-current-tag symbol semantic-current-tag-parent semantic-tag-copy semantic--tag-put-property :hit ede-auto-add-method kbuff buffs-to-kill txt searchtype] 5] mapc kill-buffer semantic-equivalent-tag-p append :hit plist-get 3 semantic--tag-put-property eieio-oset lines open-buffers T --dolist-tail-- property tag] 7 #2#] semantic-symref-tool-baseclass ((searchfor :initarg :searchfor :type string :documentation "The thing to search for.") (searchtype :initarg :searchtype :type symbol :documentation "The type of search to do.\nValues could be `symbol, `regexp, 'tagname, or 'completion.") (searchscope :initarg :searchscope :type symbol :documentation "The scope to search for.\nCan be 'project, 'target, or 'file.") (resulttype :initarg :resulttype :type symbol :documentation "The kind of search results desired.\nCan be 'line, 'file, or 'tag.\nThe type of result can be converted from 'line to 'file, or 'line to 'tag,\nbut not from 'file to 'line or 'tag.")) ("Baseclass for all symbol references tools.\nA symbol reference tool supplies functionality to identify the locations of\nwhere different symbols are used.\n\nSubclasses should be named `semantic-symref-tool-NAME', where\nNAME is the name of the tool used in the configuration variable\n`semantic-symref-tool'" :abstract t) semantic-symref-get-result #3="Calculate the results of a search based on TOOL.\nThe symref TOOL should already contain the search criteria." #[(tool) "\303!\211\205,\304\305\"\306=\203\307\202 	@;\203\310\202 \311\312\304\313\"\n	\314%))\207" [tool answer answersym semantic-symref-perform-search eieio-oref :resulttype file :hit-files :hit-text :hit-lines semantic-symref-result searchfor :created-by] 7 #3#] semantic-symref-perform-search #4="Base search for symref tools should throw an error." #[(tool) "\300\301!\207" [error "Symref tool objects must implement `semantic-symref-perform-search'"] 2 #4#] semantic-symref-parse-tool-output #5="Parse the entire OUTPUTBUFFER of a symref tool.\nCalls the method `semantic-symref-parse-tool-output-one-line' over and\nover until it returns nil." #[(tool outputbuffer) "rq\210eb\210\304\211\305!\211\203	\nB\202\n\237+\207" [outputbuffer hit result tool nil semantic-symref-parse-tool-output-one-line] 2 #5#] semantic-symref-parse-tool-output-one-line #6="Base tool output parser is not implemented." #[(tool) "\300\301!\207" [error "Symref tool objects must implement `semantic-symref-parse-tool-output-one-line'"] 2 #6#] provide semantic/symref] 5)
F1l3 Manager
