| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/cedet/semantic/symref/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(byte-code "\300\301!\210\300\302!\210\303\304\305\306!\"\210\303\307\310\306!\"\210\303\311\307\"\210\312\311\313\314#\210\315\306\316\307#\317\306\320\321\322$\207" [require semantic/symref grep defalias semantic-symref-tool-grep-p eieio-make-class-predicate semantic-symref-tool-grep semantic-symref-tool-grep--eieio-childp eieio-make-child-predicate semantic-symref-tool-grep-child-p make-obsolete "use (cl-typep ... \\='semantic-symref-tool-grep) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semantic-symref-tool-baseclass) nil (:documentation "A symref tool implementation using grep.\nThis tool uses EDE to find the root of the project, then executes\n`find-grep' in the project. The output is parsed for hits and\nthose hits returned.")] 6)
#@82 Create a new object of class type `semantic-symref-tool-grep'.
(fn &rest SLOTS)
(defalias 'semantic-symref-tool-grep #[128 "\300\301\302#\207" [apply make-instance semantic-symref-tool-grep] 5 (#$ . 870)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-symref-tool-grep compiler-macro semantic-symref-tool-grep--anon-cmacro] 4)
#@26
(fn WHOLE &rest SLOTS)
(defalias 'semantic-symref-tool-grep--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 1221)])
#@85 List of major modes and file extension pattern.
See find -name man page for format.
(defvar semantic-symref-filepattern-alist '((c-mode "*.[ch]") (c++-mode "*.[chCH]" "*.[ch]pp" "*.cc" "*.hh") (html-mode "*.html" "*.shtml" "*.php") (mhtml-mode "*.html" "*.shtml" "*.php") (ruby-mode "*.r[bu]" "*.rake" "*.gemspec" "*.erb" "*.haml" "Rakefile" "Thorfile" "Capfile" "Guardfile" "Vagrantfile") (python-mode "*.py" "*.pyi" "*.pyw") (perl-mode "*.pl" "*.PL") (cperl-mode "*.pl" "*.PL") (lisp-interaction-mode "*.el" "*.ede" ".emacs" "_emacs")) (#$ . 1464))
#@296 Derive a list of file (glob) patterns for the current buffer.
Looks first in `semantic-symref-filepattern-alist'. If it is not
there, it then looks in `auto-mode-alist', and attempts to derive something
from that.
Optional argument MODE specifies the `major-mode' to test.
(fn &optional MODE)
(defalias 'semantic-symref-derive-find-filepatterns #[256 "\211\206 \303 \"A\211\2047 \n\211\2036 \211@\211A=\203/ \304\305@\"\203/ \306\307\310@\"PB\262A\266\202\202 \210\211\204@ \311\312\"\207\313@DA\204J \207\314\315\316\317A\"\320#B\207" [major-mode semantic-symref-filepattern-alist auto-mode-alist assoc string-match "\\\\\\.\\([^\\'>]+\\)\\\\'" "*." match-string 1 error "Customize `semantic-symref-filepattern-alist' for %S" "-name" "(" append mapcan #[257 "\300\301E\207" ["-o" "-name"] 4 "\n\n(fn S)"] (")")] 10 (#$ . 2022)])
#@64 Grep expand keywords used when expanding templates for symref.
(defvar semantic-symref-grep-expand-keywords (byte-code "\3011 \302!\303\304\"\211\305\241\210\266\2020\207\210\306\207" [grep-expand-keywords (error) copy-alist assoc "<C>" semantic-symref-grep-flags nil] 4) (#$ . 2877))
#@321 Use the grep template expand feature to create a grep command.
ROOTDIR is the root location to run the `find' from.
FILEPATTERN is a string representing find flags for searching file patterns.
FLAGS are flags passed to Grep, such as -n or -l.
PATTERN is the pattern used by Grep.
(fn ROOTDIR FILEPATTERN FLAGS PATTERN)
(defalias 'semantic-symref-grep-use-template #[1028 "\305 \210 \306\307>\203 \310\311\312\f\313\211%\202 \f$*\207" [semantic-symref-grep-flags semantic-symref-grep-expand-keywords grep-expand-keywords system-type grep-find-template grep-compute-defaults grep-expand-template (windows-nt ms-dos) replace-regexp-in-string "--color=always" "" t] 11 (#$ . 3173)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable semantic-symref-grep-shell funcall function #[0 "\207" [shell-file-name] 1 ""] "The shell command to use for executing find/grep.\nThis shell should support pipe redirect syntax." :group semantic :type string] 8)
#@52 Quote STRING as a grep-syntax regexp.
(fn STRING)
(defalias 'semantic-symref-grep--quote-grep #[257 "\300\301\302\303\304%\207" [replace-regexp-in-string "[$*.[\\^]" #[257 "\300P\207" ["\\"] 3 "\n\n(fn S)"] nil t] 7 (#$ . 4170)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311!\207" [cl-generic-define-method semantic-symref-perform-search nil ((tool semantic-symref-tool-grep)) #[257 "\303\304\"\211\305>\204 \306\307\"\210\210\310 \311 \312\313\314#\303\315\"\316=\203&