Mercurial > emacs
view lisp/cedet/semantic/symref/filter.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 | 1d1d5d9bd884 |
children | 376148b31b5e |
line wrap: on
line source
;;; semantic/symref/filter.el --- Filter symbol reference hits for accuracy. ;; Copyright (C) 2009, 2010 Free Software Foundation, Inc. ;; Author: Eric M. Ludlam <eric@siege-engine.com> ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; ;; Filter symbol reference hits for accuracy. ;; ;; Most symbol referencing tools, such as find/grep only find matching ;; strings, but cannot determine the difference between an actual use, ;; and something else with a similar name, or even a string in a comment. ;; ;; This file provides utilities for filtering down to accurate matches ;; starting at a basic filter level that doesn't use symref, up to filters ;; across symref results. ;;; Code: (require 'semantic) (require 'semantic/analyze) (declare-function srecode-active-template-region "srecode/fields") (declare-function srecode-delete "srecode/fields") (declare-function srecode-field "srecode/fields") (declare-function srecode-template-inserted-region "srecode/fields") (declare-function srecode-overlaid-activate "srecode/fields") (declare-function semantic-idle-summary-useful-context-p "semantic/idle") ;;; FILTERS ;; (defun semantic-symref-filter-hit (target &optional position) "Determine if the tag TARGET is used at POSITION in the current buffer. Return non-nil for a match." (semantic-analyze-current-symbol (lambda (start end prefix) (let ((tag (car (nreverse prefix)))) (and (semantic-tag-p tag) (semantic-equivalent-tag-p target tag)))) position)) ;;; IN-BUFFER FILTERING ;; The following does filtering in-buffer only, and not against ;; a symref results object. (defun semantic-symref-hits-in-region (target hookfcn start end) "Find all occurrences of the symbol TARGET that match TARGET the tag. For each match, call HOOKFCN. HOOKFCN takes three arguments that match `semantic-analyze-current-symbol's use of HOOKFCN. ( START END PREFIX ) Search occurs in the current buffer between START and END." (require 'semantic/idle) (save-excursion (goto-char start) (let* ((str (semantic-tag-name target)) (case-fold-search semantic-case-fold) (regexp (concat "\\<" (regexp-quote str) "\\>"))) (while (re-search-forward regexp end t) (when (semantic-idle-summary-useful-context-p) (semantic-analyze-current-symbol (lambda (start end prefix) (let ((tag (car (nreverse prefix)))) ;; check for semantic match on the text match. (when (and (semantic-tag-p tag) (semantic-equivalent-tag-p target tag)) (save-excursion (funcall hookfcn start end prefix))))) (point))))))) (defun semantic-symref-rename-local-variable () "Fancy way to rename the local variable under point. Depends on the SRecode Field editing API." (interactive) ;; Do the replacement as needed. (let* ((ctxt (semantic-analyze-current-context)) (target (car (reverse (oref ctxt prefix)))) (tag (semantic-current-tag)) ) (when (or (not target) (not (semantic-tag-with-position-p target))) (error "Cannot identify symbol under point")) (when (not (semantic-tag-of-class-p target 'variable)) (error "Can only rename variables")) (when (or (< (semantic-tag-start target) (semantic-tag-start tag)) (> (semantic-tag-end target) (semantic-tag-end tag))) (error "Can only rename variables declared in %s" (semantic-tag-name tag))) ;; I think we're good for this example. Give it a go through ;; our fancy interface from SRecode. (require 'srecode/fields) ;; Make sure there is nothing active. (let ((ar (srecode-active-template-region))) (when ar (srecode-delete ar))) (let ((srecode-field-archive nil) (region nil) ) (semantic-symref-hits-in-region target (lambda (start end prefix) ;; For every valid hit, create one field. (srecode-field "LOCAL" :name "LOCAL" :start start :end end)) (semantic-tag-start tag) (semantic-tag-end tag)) ;; Now that the fields are setup, create the region. (setq region (srecode-template-inserted-region "REGION" :start (semantic-tag-start tag) :end (semantic-tag-end tag))) ;; Activate the region. (srecode-overlaid-activate region) ) )) (provide 'semantic/symref/filter) ;; arch-tag: 14b9e795-02bf-408b-b375-c3f8ff6a4e38 ;;; semantic/symref/filter.el ends here