ikan Uploader :
Directory : /proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/symref/
Upload File : |
| Current File : //proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/symref/grep.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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!\"\210\303\307\310\306!\"\210\303\311\307\"\210\312\311\313\314#\210\315\306\316\307#\210\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" put cl-deftype-satisfies eieio-defclass-internal (semantic-symref-tool-baseclass) nil (:documentation "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)
#@64 Create a new object of class type `semantic-symref-tool-grep'.
(defalias 'semantic-symref-tool-grep #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-symref-tool-grep] 4 (#$ . 1179)])
(function-put 'semantic-symref-tool-grep 'compiler-macro 'semantic-symref-tool-grep--anon-cmacro)
(defalias 'semantic-symref-tool-grep--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
#@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 "*.s?html" "*.php") (ruby-mode "*.r[bu]" "*.rake" "*.gemspec" "*.erb" "*.haml" "Rakefile" "Thorfile" "Capfile" "Guardfile" "Vagrantfile") (perl-mode "*.pl" "*.PL") (cperl-mode "*.pl" "*.PL") (lisp-interaction-mode "*.el" "*.ede" ".emacs" "_emacs")) (#$ . 1716))
#@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\204@ \f\307 \211 \203? @\211A=\2036 \310\311
@\"\2036 \312\313\314
@\"P BA\211\204 * \204K \315\316 \"\202j \317 @D\211 A\204[ \202i \320\321\322\323\324\325 \"\"\326#B)*\207" [mode major-mode semantic-symref-filepattern-alist pat auto-mode-alist X assoc nil string-match "\\\\\\.\\([^\\'>]+\\)\\\\'" "*." match-string 1 error "Customize `semantic-symref-filepattern-alist' for %S" "-name" "(" append apply nconc mapcar #[(s) "\301\302E\207" [s "-o" "-name"] 3] (")") --dolist-tail-- args] 9 (#$ . 2189)])
#@64 Grep expand keywords used when expanding templates for symref.
(defvar semantic-symref-grep-expand-keywords (byte-code "\3041 \305!\306\307 \"\306\310 \"\n\311\241\210 \312\241\210 +0\207\210\313\207" [grep-expand-keywords kw C R (error) copy-alist assoc "<C>" "<R>" grepflags greppattern nil] 3) (#$ . 3082))
#@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 flags pattern) "\306 \210\n\f \307\310>\203 \311\312\313\314\211%\202 $ \315\316\"\2039 \317\314\211\320%,\207" [flags grepflags pattern greppattern semantic-symref-grep-expand-keywords grep-expand-keywords grep-compute-defaults grep-expand-template (windows-nt ms-dos) replace-regexp-in-string "--color=always" "" t string-match "find \\(\\.\\)" replace-match 1 system-type grep-find-template filepattern rootdir cmd] 7 (#$ . 3404)])
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\312\314%\207" [custom-declare-variable semantic-symref-grep-shell shell-file-name "The shell command to use for executing find/grep.\nThis shell should support pipe redirect syntax." :group semantic :type string cl-generic-define-method semantic-symref-perform-search nil ((tool semantic-symref-tool-grep)) #[(tool) "\306\307\"\211\310>\204 \311\312 \"\210)\313 \314 \315\316 \317# \306\320\"\321=\203* \322\2028 \306\307\"\323=\2037 \324\2028 \325 \316\306\307\"\323=\203J \306\326\"\202Q \327\330\306\326\"\"! '\331\332! (\333 )r(q\210\334 \210\n*\335\336!\204\216 \337*\340\f\341\342
\343'\260 +\344,\333(\333-+&\210)\202\246 \345\n\f
'$ +\344,\333(\333-+&\210))\346(\"\211).\207" [tool st rootdir filepatterns filepattern grepflags eieio-oref :searchtype (symbol regexp) error "Symref impl GREP does not support searchtype of %s" semantic-symref-calculate-rootdir semantic-symref-derive-find-filepatterns mapconcat shell-quote-argument " " :resulttype file "-l " regexp "-nE " "-n " searchfor format "\\(^\\|\\W\\)%s\\(\\W\\|$\\)" get-buffer-create "*Semantic SymRef*" nil erase-buffer fboundp grep-compute-defaults "find " " -type f " " -print0 " "| xargs -0 grep -H " "-e " call-process semantic-symref-grep-use-template semantic-symref-parse-tool-output greppat b ans default-directory cmd semantic-symref-grep-shell shell-command-switch] 10 "Perform a search with Grep."]] 8)
(defconst semantic-symref-grep--line-re "^\\(\\(?:[a-zA-Z]:\\)?[^:\n]+\\):\\([0-9]+\\):")
(byte-code "\300\301\302\303\302\304%\210\305\306!\207" [cl-generic-define-method semantic-symref-parse-tool-output-one-line nil ((tool semantic-symref-tool-grep)) #[(tool) "\302\303\"\304=\203 \305\306\307\310#\205F \311\312!\207\302\303\"\313=\2035 \305 \307\310#\205F \314\311\315!!\311\312!\316`\317 \"E\207\305 \307\310#\205F \314\311\315!!\311\312!B\207" [tool semantic-symref-grep--line-re eieio-oref :resulttype file re-search-forward "^\\([^\n]+\\)$" nil t match-string 1 line-and-text string-to-number 2 buffer-substring-no-properties line-end-position] 5 "Parse one line of grep output, and return it as a match list.\nMoves cursor to end of the match."] provide semantic/symref/grep] 6)
Kontol Shell Bypass