bug#14436: 24.3.50; cscope + compilation-mode

bug#14436: 24.3.50; cscope + compilation-mode

[Jambunathan K]

[-- Attachment #1: Type: text/plain, Size: 845 bytes --]


Being a C programmer, I always missed not having support for cscope "out
of the box" in my vanilla Emacs.  It is unfortunate that xcscope.el is
not part of Emacs proper.

Here is a quick and dirty means to alleviate this drawback and make
cscope "one another" search engine (similar to rgrep etc).

This bug is a continuation of my earlier bug#13459.  Ideally I want to
be able to see the "function context" in search results.  See earlier
screenshot 

http://debbugs.gnu.org/cgi/bugreport.cgi?msg=5;filename=grep-proof-of-concept-cf-cscope.png;att=3;bug=13549

I have more ideas on how the symbol searches could be imporved in
Emacs.  I will document these in future bug reports.

----------------------------------------------------------------

For a first cut, the following works.  Update
`compilation-error-regexp-alist-alist' as below.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-diff, Size: 512 bytes --]

=== modified file 'lisp/progmodes/compile.el'
--- lisp/progmodes/compile.el	2013-04-24 13:50:22 +0000
+++ lisp/progmodes/compile.el	2013-05-22 06:03:23 +0000
@@ -447,7 +447,9 @@ File = \\(.+\\), Line = \\([0-9]+\\)\\(?
      ;;
      "^\\([^ \t\r\n(]+\\) (\\([0-9]+\\):\\([0-9]+\\)) "
      1 2 3)
-    )
+    (cscope
+     "^\\([^ \t]+\\)[ \t]+\\([^ \t]+\\)[ \t]+\\([0-9]+\\)[ \t]+\\(.*\\)\n"
+     1 3))
   "Alist of values for `compilation-error-regexp-alist'.")
 
 (defcustom compilation-error-regexp-alist


[-- Attachment #3: Type: text/plain, Size: 1484 bytes --]



While in ~/src/emacs/trunk/src, do

        M-! cscope -f cscope.out -L -0 interval_block

You will see the following in *Shell Command Output*.  Put that in
compilation mode and navigate through the search results the usual way.

--8<---------------cut here---------------start------------->8---
alloc.c <global> 1150 struct interval_block
alloc.c <global> 1154 struct interval_block *next;
alloc.c <global> 1160 static struct interval_block *interval_block;
alloc.c INTERVAL_BLOCK_SIZE 1145 ((1020 - sizeof (struct interval_block *)) / sizeof (struct interval))
alloc.c make_interval 1193 struct interval_block *newi
alloc.c make_interval 1196 newi->next = interval_block;
alloc.c make_interval 1197 interval_block = newi;
alloc.c make_interval 1201 val = &interval_block->intervals[interval_block_index++];
alloc.c gc_sweep 6227 register struct interval_block *iblk;
alloc.c gc_sweep 6228 struct interval_block **iprev = &interval_block;
alloc.c gc_sweep 6234 for (iblk = interval_block; iblk; iblk = *iprev)
--8<---------------cut here---------------end--------------->8---

In GNU Emacs 24.3.50.1 (i686-pc-linux-gnu, GTK+ Version 2.20.1)
 of 2013-05-20 on debian-6.05
Bzr revision: 112643 mituharu@math.s.chiba-u.ac.jp-20130520031520-pq1c1qjertan94kq
Windowing system distributor `The X.Org Foundation', version 11.0.10707000
Important settings:
  value of $LANG: en_IN
  locale-coding-system: iso-latin-1-unix
  default enable-multibyte-characters: t

Major mode: Fundamental

bug#14436: 24.3.50; cscope + compilation-mode

[Glenn Morris]

Please don't send us patches.
We can't use them becase you don't have an assignment (and are way
past any tiny change limit).
The most helpful thing you can do is describe issues in full detail
without code so that someone else can fix them.

(This is a simple statement of facts, I'm not interested in starting a
discussion.)

bug#14436: 24.3.50; cscope + compilation-mode

[Jambunathan K]

Jambunathan K <kjambunathan@gmail.com> writes:

> Being a C programmer, I always missed not having support for cscope "out
> of the box" in my vanilla Emacs.  It is unfortunate that xcscope.el is
> not part of Emacs proper.

Above statement is no longer true, now that cedet-cscope.el is part of
Emacs.  Here is a small recipe to search for C symbols outside of cedet
framework.

(require 'cedet-cscope)
(defun cscope-find-c-symbol (&optional tag)
  (interactive
   (list (let ((tag (find-tag-default)))
	   (read-string (format "Search for (default \"%s\"): " (or tag ""))
			nil nil tag))))
  
  ;; If "*CEDET CScope*" is put in `compilation-mode', `erase-buffer'
  ;; (called from within `cedet-cscope-search') may complain.  Just
  ;; kill the results buffer before initiating a new search.
  (let  ((cscope-buffer "*CEDET CScope*"))
    (when (get-buffer cscope-buffer)
      (kill-buffer cscope-buffer)))
  
  (with-current-buffer (cedet-cscope-search tag 'tagregexp 'line 'project)
    ;; FIXME: Add cscope pattern to `compilation-error-regexp-alist'
    ;; or `compilation-error-regexp-alist-alist'.
    ;; (compilation-mode)
    (display-buffer (current-buffer))))

bug#14436: 24.3.50; cscope + compilation-mode

[Jambunathan K]

OP here.  Closed.