1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / cedet / semantic / symref /
Filename : grep.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:23 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/symref/grep.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307$\207" [require semantic/symref grep eieio-defclass semantic-symref-tool-grep (semantic-symref-tool-baseclass) nil ("A symref tool implementation using grep.\nThis tool uses EDE to find he root of the project, then executes\nfind-grep in the project.  The output is parsed for hits\nand those hits returned.")] 5)
#@93 List of major modes and file extension pattern regexp.
See find -regex man page for format.
(defvar semantic-symref-filepattern-alist '((c-mode "*.[ch]") (c++-mode "*.[chCH]" "*.[ch]pp" "*.cc" "*.hh") (html-mode "*.s?html" "*.php")) (#$ . 941))
#@268 Derive a list of file 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.
(defalias 'semantic-symref-derive-find-filepatterns #[(&optional mode) "\206�	\306\n\"A\211\204M�\f\307\211\203L�@\211A=\203C�\310\311
@\"\2036�\312\313\314
@\"P\2027�\307\211\203B�B)A\211\204�*G\314U\203\\�\315@\316Q\202p�:\203l�\317\320\321\322#\323Q\202p�\324\325	\"*\207" [mode major-mode semantic-symref-filepattern-alist pat auto-mode-alist X assoc nil string-match "\\\\\\.\\([^\\'>]+\\)\\\\'" "*." match-string 1 "-name \"" "\"" "\\( " mapconcat #[(s) "\301\302Q\207" [s "-name \"" "\""] 3] " -o " " \\)" error "Customize `semantic-symref-filepattern-alist' for %s" --dolist-tail-- Xp] 6 (#$ . 1193)])
#@64 Grep expand keywords used when expanding templates for symref.
(defvar semantic-symref-grep-expand-keywords (byte-code "\300\301\302\217\207" [nil (byte-code "\304!\305\306	\"\305\307	\"\n\310\241\210\311\241\210	+\207" [grep-expand-keywords kw C R copy-alist assoc "<C>" "<R>" grepflags greppattern] 3) ((error))] 3) (#$ . 2104))
#@289 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.
GREPFLAGS are flags passed to grep, such as -n or -l.
GREPPATTERN is the pattern used by grep.
(defalias 'semantic-symref-grep-use-template #[(rootdir filepattern grepflags greppattern) "\306 \210\307\n\f
$
\310\311
\"\203�\312
\313\211
\314%

*\207" [semantic-symref-grep-expand-keywords grep-expand-keywords grep-find-template greppattern filepattern rootdir grep-compute-defaults grep-expand-template string-match "find \\(\\.\\)" replace-match t 1 cmd] 6 (#$ . 2447)])
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\311\313\"\"\210\314\311\315\316\317$\210\310\320\312\320\321\"\"\210\314\320\315\316\322$\210\323\324!\207" [custom-declare-variable semantic-symref-grep-shell "sh" "The shell command to use for executing find/grep.\nThis shell should support pipe redirect syntax." :group semantic :type string eieio--defalias semantic-symref-perform-search eieio--defgeneric-init-form #1="Perform a search with Grep." eieio--defmethod nil semantic-symref-tool-grep #[(tool) "\306\307\"\211\310=\204�\311\312	\"\210)\313\n\"A\314 \315 %\306\316\"\317=\203+�\320\202,�\321&\306\307\"\322=\203>�\306\323\"\202E�\324\306\323\"\325Q'\326\327!(\330)r(q\210\331 \210
*\332\333!\204\202�\334*\335%\336\337&\340'\260	+\341,\330(\330\342+&\210)\202\233�\343
%&'$+\341,\330(\330\342+&\210))\344(\"\211).\207" [tool st major-mode semantic-symref-filepattern-alist pat rootdir eieio-oref :searchtype symbol error "Symref impl GREP does not support searchtype of %s" assoc semantic-symref-calculate-rootdir semantic-symref-derive-find-filepatterns :resulttype file "-l " "-n " regexp searchfor "'\\<" "\\>'" get-buffer-create "*Semantic SymRef*" nil erase-buffer fboundp grep-compute-defaults "find " " -type f " " -print0 " "| xargs -0 grep -H " "-e " call-process "-c" semantic-symref-grep-use-template semantic-symref-parse-tool-output filepattern grepflags greppat b ans default-directory cmd semantic-symref-grep-shell] 10 #1#] semantic-symref-parse-tool-output-one-line #2="Parse one line of grep output, and return it as a match list.\nMoves cursor to end of the match." #[(tool) "\301\302\"\303=\203�\304\305\306\307#\205&�\310\311!\207\304\312\306\307#\205&�\313\310\314!!\310\311!B\207" [tool eieio-oref :resulttype file re-search-forward "^\\([^\n]+\\)$" nil t match-string 1 "^\\(\\(?:[a-zA-Z]:\\)?[^:\n]+\\):\\([0-9]+\\):" string-to-number 2] 4 #2#] provide semantic/symref/grep] 8)