Mercurial > emacs
annotate lisp/cedet/semantic/symref/grep.el @ 110763:0fe64d68a522
Merge changes made in Gnus trunk.
shr.el: Implement table rendering.
shr.el (shr-make-table): Tweak table generation.
shr.el (shr-make-table): Fix typo.
nnimap.el (nnimap-open-connection): Allow tls as a synonym for ssl.
gnus-util.el (gnus-emacs-completing-read): Mapcar collection to list, for XEmacs.
nnimap.el (nnimap-close-server): Implement.
gnus-salt.el: Remove all gnus-carpal stuff -- it's not useful.
nnir.el (nnir-run-imap): Remove spurious space in search string.
message.el (message-idna-to-ascii-rhs-1): Don't bug out on addresses without @ signs.
gnus-sum.el (gnus-widen-article-window): New variable.
shr.el (browse-url): Required.
shr.el (shr-ensure-paragraph): Don't insert a new newline after empty-ish lines.
shr.el (shr-show-alt-text, shr-browse-image): New commands.
gravatar.el (gravatar-retrieved): kill buffer when retrieved.
shr.el (shr-browse-url, shr-copy-url): New commands.
shr.el (shr-render-td): Protect against too-wide text.
spam-report.el (spam-report-url-ping-plain): Don't query about killing the process.
nnimap.el (nnimap-finish-retrieve-group-infos): Message while waiting for data.
shr.el (shr-tag-blockquote): Ensure paragraph after quote, too.
mml-smime.el: Fix gnus-completing-read usage.
shr.el (shr-get-image-data): Ensure against the cache file missing.
nnimap.el (nnimap-open-connection): Give an error if nnimap-stream is unknown.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Mon, 04 Oct 2010 22:26:51 +0000 |
parents | a5ad4f188e19 |
children | 376148b31b5e |
rev | line source |
---|---|
104482
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1 ;;; semantic/symref/grep.el --- Symref implementation using find/grep |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2 |
106815 | 3 ;; Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc. |
104482
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
4 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
5 ;; Author: Eric M. Ludlam <eric@siege-engine.com> |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
6 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
7 ;; This file is part of GNU Emacs. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
8 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
9 ;; GNU Emacs is free software: you can redistribute it and/or modify |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
10 ;; it under the terms of the GNU General Public License as published by |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
11 ;; the Free Software Foundation, either version 3 of the License, or |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
12 ;; (at your option) any later version. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
13 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
14 ;; GNU Emacs is distributed in the hope that it will be useful, |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
17 ;; GNU General Public License for more details. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
18 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
19 ;; You should have received a copy of the GNU General Public License |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
20 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
21 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
22 ;;; Commentary: |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
23 ;; |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
24 ;; Implement the symref tool API using the external tools find/grep. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
25 ;; |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
26 ;; The symref GREP tool uses grep in a project to find symbol references. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
27 ;; This is a lowest-common-denominator tool with sucky performance that |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
28 ;; can be used in small projects to find symbol references. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
29 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
30 (require 'semantic/symref) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
31 (require 'grep) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
32 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
33 ;;; Code: |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
34 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
35 ;;; GREP |
104486
1ca7a97e0322
lisp/cedet/semantic/symref.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
104482
diff
changeset
|
36 ;;;###autoload |
104482
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
37 (defclass semantic-symref-tool-grep (semantic-symref-tool-baseclass) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
38 ( |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
39 ) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
40 "A symref tool implementation using grep. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
41 This tool uses EDE to find he root of the project, then executes |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
42 find-grep in the project. The output is parsed for hits |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
43 and those hits returned.") |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
44 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
45 (defvar semantic-symref-filepattern-alist |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
46 '((c-mode "*.[ch]") |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
47 (c++-mode "*.[chCH]" "*.[ch]pp" "*.cc" "*.hh") |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
48 (html-mode "*.s?html" "*.php") |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
49 ) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
50 "List of major modes and file extension pattern regexp. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
51 See find -regex man page for format.") |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
52 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
53 (defun semantic-symref-derive-find-filepatterns (&optional mode) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
54 "Derive a list of file patterns for the current buffer. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
55 Looks first in `semantic-symref-filepattern-alist'. If it is not |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
56 there, it then looks in `auto-mode-alist', and attempts to derive something |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
57 from that. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
58 Optional argument MODE specifies the `major-mode' to test." |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
59 ;; First, try the filepattern alist. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
60 (let* ((mode (or mode major-mode)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
61 (pat (cdr (assoc mode semantic-symref-filepattern-alist)))) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
62 (when (not pat) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
63 ;; No hit, try auto-mode-alist. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
64 (dolist (X auto-mode-alist) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
65 (when (eq (cdr X) mode) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
66 ;; Only take in simple patterns, so try to convert this one. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
67 (let ((Xp |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
68 (cond ((string-match "\\\\\\.\\([^\\'>]+\\)\\\\'" (car X)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
69 (concat "*." (match-string 1 (car X)))) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
70 (t nil)))) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
71 (when Xp |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
72 (setq pat (cons Xp pat)))) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
73 ))) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
74 ;; Convert the list into some find-flags. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
75 (cond ((= (length pat) 1) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
76 (concat "-name \"" (car pat) "\"")) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
77 ((consp pat) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
78 (concat "\\( " |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
79 (mapconcat (lambda (s) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
80 (concat "-name \"" s "\"")) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
81 pat |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
82 " -o ") |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
83 " \\)")) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
84 (t |
110523
a5ad4f188e19
Synch Semantic to CEDET 1.0.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
85 (error "Customize `semantic-symref-filepattern-alist' for %s" major-mode)) |
104482
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
86 ))) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
87 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
88 (defvar semantic-symref-grep-expand-keywords |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
89 (condition-case nil |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
90 (let* ((kw (copy-alist grep-expand-keywords)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
91 (C (assoc "<C>" kw)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
92 (R (assoc "<R>" kw))) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
93 (setcdr C 'grepflags) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
94 (setcdr R 'greppattern) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
95 kw) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
96 (error nil)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
97 "Grep expand keywords used when expanding templates for symref.") |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
98 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
99 (defun semantic-symref-grep-use-template (rootdir filepattern grepflags greppattern) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
100 "Use the grep template expand feature to create a grep command. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
101 ROOTDIR is the root location to run the `find' from. |
105340 | 102 FILEPATTERN is a string representing find flags for searching file patterns. |
104482
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
103 GREPFLAGS are flags passed to grep, such as -n or -l. |
105340 | 104 GREPPATTERN is the pattern used by grep." |
104482
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
105 ;; We have grep-compute-defaults. Lets use it. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
106 (grep-compute-defaults) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
107 (let* ((grep-expand-keywords semantic-symref-grep-expand-keywords) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
108 (cmd (grep-expand-template grep-find-template |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
109 greppattern |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
110 filepattern |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
111 rootdir))) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
112 ;; For some reason, my default has no <D> in it. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
113 (when (string-match "find \\(\\.\\)" cmd) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
114 (setq cmd (replace-match rootdir t t cmd 1))) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
115 ;;(message "New command: %s" cmd) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
116 cmd)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
117 |
110523
a5ad4f188e19
Synch Semantic to CEDET 1.0.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
118 (defcustom semantic-symref-grep-shell "sh" |
a5ad4f188e19
Synch Semantic to CEDET 1.0.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
119 "The shell command to use for executing find/grep. |
a5ad4f188e19
Synch Semantic to CEDET 1.0.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
120 This shell should support pipe redirect syntax." |
a5ad4f188e19
Synch Semantic to CEDET 1.0.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
121 :group 'semantic |
a5ad4f188e19
Synch Semantic to CEDET 1.0.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
122 :type 'string) |
a5ad4f188e19
Synch Semantic to CEDET 1.0.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
123 |
104482
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
124 (defmethod semantic-symref-perform-search ((tool semantic-symref-tool-grep)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
125 "Perform a search with Grep." |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
126 ;; Grep doesn't support some types of searches. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
127 (let ((st (oref tool :searchtype))) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
128 (when (not (eq st 'symbol)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
129 (error "Symref impl GREP does not support searchtype of %s" st)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
130 ) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
131 ;; Find the root of the project, and do a find-grep... |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
132 (let* (;; Find the file patterns to use. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
133 (pat (cdr (assoc major-mode semantic-symref-filepattern-alist))) |
110523
a5ad4f188e19
Synch Semantic to CEDET 1.0.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
134 (rootdir (semantic-symref-calculate-rootdir)) |
104482
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
135 (filepattern (semantic-symref-derive-find-filepatterns)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
136 ;; Grep based flags. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
137 (grepflags (cond ((eq (oref tool :resulttype) 'file) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
138 "-l ") |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
139 (t "-n "))) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
140 (greppat (cond ((eq (oref tool :searchtype) 'regexp) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
141 (oref tool searchfor)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
142 (t |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
143 (concat "'\\<" (oref tool searchfor) "\\>'")))) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
144 ;; Misc |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
145 (b (get-buffer-create "*Semantic SymRef*")) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
146 (ans nil) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
147 ) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
148 |
105799
3fe6da4a95a9
* cedet/srecode/srt-mode.el (semantic-analyze-possible-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105377
diff
changeset
|
149 (with-current-buffer b |
104482
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
150 (erase-buffer) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
151 (setq default-directory rootdir) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
152 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
153 (if (not (fboundp 'grep-compute-defaults)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
154 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
155 ;; find . -type f -print0 | xargs -0 -e grep -nH -e |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
156 ;; Note : I removed -e as it is not posix, nor necessary it seems. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
157 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
158 (let ((cmd (concat "find " default-directory " -type f " filepattern " -print0 " |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
159 "| xargs -0 grep -H " grepflags "-e " greppat))) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
160 ;;(message "Old command: %s" cmd) |
110523
a5ad4f188e19
Synch Semantic to CEDET 1.0.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
161 (call-process semantic-symref-grep-shell nil b nil "-c" cmd) |
104482
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
162 ) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
163 (let ((cmd (semantic-symref-grep-use-template rootdir filepattern grepflags greppat))) |
110523
a5ad4f188e19
Synch Semantic to CEDET 1.0.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
164 (call-process semantic-symref-grep-shell nil b nil "-c" cmd)) |
104482
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
165 )) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
166 (setq ans (semantic-symref-parse-tool-output tool b)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
167 ;; Return the answer |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
168 ans)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
169 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
170 (defmethod semantic-symref-parse-tool-output-one-line ((tool semantic-symref-tool-grep)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
171 "Parse one line of grep output, and return it as a match list. |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
172 Moves cursor to end of the match." |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
173 (cond ((eq (oref tool :resulttype) 'file) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
174 ;; Search for files |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
175 (when (re-search-forward "^\\([^\n]+\\)$" nil t) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
176 (match-string 1))) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
177 (t |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
178 (when (re-search-forward "^\\(\\(?:[a-zA-Z]:\\)?[^:\n]+\\):\\([0-9]+\\):" nil t) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
179 (cons (string-to-number (match-string 2)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
180 (match-string 1)) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
181 )))) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
182 |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
183 (provide 'semantic/symref/grep) |
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
184 |
104486
1ca7a97e0322
lisp/cedet/semantic/symref.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
104482
diff
changeset
|
185 ;; Local variables: |
1ca7a97e0322
lisp/cedet/semantic/symref.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
104482
diff
changeset
|
186 ;; generated-autoload-file: "../loaddefs.el" |
1ca7a97e0322
lisp/cedet/semantic/symref.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
104482
diff
changeset
|
187 ;; generated-autoload-load-name: "semantic/symref/grep" |
1ca7a97e0322
lisp/cedet/semantic/symref.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
104482
diff
changeset
|
188 ;; End: |
1ca7a97e0322
lisp/cedet/semantic/symref.el: Revert last change.
Chong Yidong <cyd@stupidchicken.com>
parents:
104482
diff
changeset
|
189 |
105377 | 190 ;; arch-tag: 43d4469d-963c-4094-ac6f-99f7490973ce |
104482
5b954f6cdc15
lisp/cedet/semantic/symref/grep.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
191 ;;; semantic/symref/grep.el ends here |