# HG changeset patch # User Chong Yidong # Date 1252184965 0 # Node ID e4842bf0f3037f282779e266724a234a495eaf7b # Parent a19d1a45b823931a1c7d0339b6c33906413060cc lisp/cedet/semantic/symref/filter.el: New file. lisp/cedet/semantic/idle.el (semantic-symref-hits-in-region): Require semantic/symref/filter. diff -r a19d1a45b823 -r e4842bf0f303 lisp/cedet/semantic/idle.el --- a/lisp/cedet/semantic/idle.el Sat Sep 05 20:48:18 2009 +0000 +++ b/lisp/cedet/semantic/idle.el Sat Sep 05 21:09:25 2009 +0000 @@ -57,6 +57,7 @@ "semantic/decorate/mode") (declare-function pulse-momentary-highlight-region "pulse") (declare-function pulse-momentary-highlight-overlay "pulse") +(declare-function semantic-symref-hits-in-region "semantic/symref/filter") ;;; Code: @@ -924,6 +925,7 @@ (error nil)) ;; Identify all hits in this current tag. (when (semantic-tag-p target) + (require 'semantic/symref/filter) (semantic-symref-hits-in-region target (lambda (start end prefix) (when (/= start (car Hbounds)) diff -r a19d1a45b823 -r e4842bf0f303 lisp/cedet/semantic/symref/filter.el --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/cedet/semantic/symref/filter.el Sat Sep 05 21:09:25 2009 +0000 @@ -0,0 +1,160 @@ +;;; semantic/symref/filter.el --- Filter symbol reference hits for accuracy. + +;;; Copyright (C) 2009 Free Software Foundation, Inc. + +;; Author: Eric M. Ludlam + +;; 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 . + +;;; 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) + +;;; 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 occurances 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." + (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))))))) + +;;;###autoload +(defun semantic-symref-test-count-hits-in-tag () + "Lookup in the current tag the symbol under point. +the count all the other references to the same symbol within the +tag that contains point, and return that." + (interactive) + (let* ((ctxt (semantic-analyze-current-context)) + (target (car (reverse (oref ctxt prefix)))) + (tag (semantic-current-tag)) + (start (current-time)) + (Lcount 0)) + (when (semantic-tag-p target) + (semantic-symref-hits-in-region + target (lambda (start end prefix) (setq Lcount (1+ Lcount))) + (semantic-tag-start tag) + (semantic-tag-end tag)) + (when (interactive-p) + (message "Found %d occurances of %s in %.2f seconds" + Lcount (semantic-tag-name target) + (semantic-elapsed-time start (current-time)))) + Lcount))) + +(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) + +;; Local variables: +;; generated-autoload-file: "../loaddefs.el" +;; generated-autoload-feature: semantic/loaddefs +;; generated-autoload-load-name: "semantic/symref/filter" +;; End: + +;;; semantic/symref/filter.el ends here