%PDF-
%PDF-
Mini Shell
Mini Shell
;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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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\nfind-grep in the project. The output is parsed for hits and\nthose hits returned.")] 6)
#@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 (#$ . 1192)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-symref-tool-grep compiler-macro semantic-symref-tool-grep--anon-cmacro] 4)
(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 "*.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")) (#$ . 1768))
#@275 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.
(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 \"\202g \317 @D A\204[ \202f \320\321\322\323 \"\324#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 mapcan #[(s) "\301\302E\207" [s "-o" "-name"] 3] (")") --dolist-tail-- args] 7 (#$ . 2326)])
#@64 Grep expand keywords used when expanding templates for symref.
(defvar semantic-symref-grep-expand-keywords (byte-code "\3031 \304!\305\306 \"\211\307\241\210 *0\207\210\310\207" [grep-expand-keywords kw C (error) copy-alist assoc "<C>" semantic-symref-grep-flags nil] 4) (#$ . 3201))
#@281 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.
(defalias 'semantic-symref-grep-use-template #[(rootdir filepattern flags pattern) "\306 \210\n\307\f\310>\203 \311\312\313
\314\211%\202
$*\207" [flags 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 pattern filepattern rootdir] 8 (#$ . 3497)])
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\312\314%\210\310\315\312\316\312\317%\210\320\321!\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 \306\307\"\323=\203I \306\326\"\202P \327\330\306\326\"\" '\331\332! (\333 )r(q\210\334 \210\n*\335\336!\204\214 \337\340\n!\341\f\342
\343'\260 +\344,\333(\333-+&\210)\202\246 \345\340\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 " file-local-name " -type f " " -print0 | xargs -0 grep -H " "-e " process-file semantic-symref-grep-use-template semantic-symref-parse-tool-output greppat b ans default-directory cmd semantic-symref-grep-shell shell-command-switch] 9 "Perform a search with Grep."] semantic-symref-parse-tool-output-one-line ((tool semantic-symref-tool-grep)) #[(tool) "@\211@ A\211@ A\211 @\211 \f\n \306\307\"\310=\2034 \311\312\313\314#\205n \315\316!\202n \306\307\"\317=\203Z \311\313\314#\205n \320\315!!\315!\321`\322 \"E\202n \311\313\314#\205n \320\315!!\315!B. \207" [grep-regexp-alist #:val #:x145 #:x146 #:x147 #:x148 eieio-oref resulttype file re-search-forward "^\\([^\n]+\\)$" nil t match-string 1 line-and-text string-to-number buffer-substring-no-properties line-end-position #:x149 grep-re file-group line-group tool] 6 "Parse one line of grep output, and return it as a match list.\nMoves cursor to end of the match."] provide semantic/symref/grep] 8)
Zerion Mini Shell 1.0