Emacs 22 (CVS) and ada-find-**-references

Emacs 22 (CVS) and ada-find-**-references

[Jérôme]

Hello

We are evaluating current CVS build of Emacs 22 (on Windows)

One of  our last problems deals with Ada programming mode :
When we use the function ada-find-**-references, the file-name is not
correctly identified
(And so, when using next-error function,it does not jump to the
corresponding line.)

Any idea where I should start to look ?
(I am not very familiar with compilation-mode.)


Here is what I saw in my after buffer

-*- mode: compilation; default-directory:
"c:/CVS-CO/HEAD/hera/interf/src/oci/" -*-
Compilation started at Tue May 30 16:00:38

gnat find -rf oci_test:oci_test.adb:17:11 oci_test.adb
-pc:/Work/HEAD/debug/g-oci_test.adp
.\oci_test.adb:17:11: (spec) Oci_Test
...

Compilation finished at Tue May 30 16:00:38

NB 1 : Of course, this is working fine in Emacs 21 (with same gcc
release, same .adp file)
NB 2 : When I compile, in case of warning/error, there is no .\ before
the file name

Re: Emacs 22 (CVS) and ada-find-**-references

[Jérôme]

Hello

I found a workaround : I added a change-directory to build_dir before
to start gnat find. I will try to go deeper inside compilation-mode
later.
See diff file below.

As there were quite few answers, it would be interesting to know what
IDE is the one you prefer to work with gnat/gcc on Windows (GPS ?,
Emacs/ada-mode ?, ...)

Please feel free to give your opinion.


*** c:/emacs-22/lisp/progmodes/ada-xref.el.orig	Mon May 01 13:44:02
2006
--- c:/emacs-22/lisp/progmodes/ada-xref.el	Wed May 31 14:19:53 2006
***************
*** 895,901 ****
  		(concat "'\"" (substring entity 1 -1) "\"'"))
  	    entity))
  	 (switches (ada-xref-get-project-field 'gnatfind_opt))
! 	 (command (concat "gnat find " switches " "
  			  quote-entity
                            (if file (concat ":"
(file-name-nondirectory file)))
                            (if line (concat ":" line))
--- 895,903 ----
  		(concat "'\"" (substring entity 1 -1) "\"'"))
  	    entity))
  	 (switches (ada-xref-get-project-field 'gnatfind_opt))
! 	 (command (concat ada-cd-command " " (ada-xref-get-project-field
'build_dir)
! 			  ada-command-separator
! 			  "gnat find " switches " "
  			  quote-entity
                            (if file (concat ":"
(file-name-nondirectory file)))
                            (if line (concat ":" line))




Jérôme a écrit :

> Hello
>
> We are evaluating current CVS build of Emacs 22 (on Windows)
>
> One of  our last problems deals with Ada programming mode :
> When we use the function ada-find-**-references, the file-name is not
> correctly identified
> (And so, when using next-error function,it does not jump to the
> corresponding line.)
>
> Any idea where I should start to look ?
> (I am not very familiar with compilation-mode.)
>
>
> Here is what I saw in my after buffer
>
> -*- mode: compilation; default-directory:
> "c:/CVS-CO/HEAD/hera/interf/src/oci/" -*-
> Compilation started at Tue May 30 16:00:38
>
> gnat find -rf oci_test:oci_test.adb:17:11 oci_test.adb
> -pc:/Work/HEAD/debug/g-oci_test.adp
> .\oci_test.adb:17:11: (spec) Oci_Test
> ...
>
> Compilation finished at Tue May 30 16:00:38
>
> NB 1 : Of course, this is working fine in Emacs 21 (with same gcc
> release, same .adp file)
> NB 2 : When I compile, in case of warning/error, there is no .\ before
> the file name

Re: Emacs 22 (CVS) and ada-find-**-references

[Manuel G. R.]

J�r�me escribi�:
> As there were quite few answers, it would be interesting to know what
> IDE is the one you prefer to work with gnat/gcc on Windows (GPS ?,
> Emacs/ada-mode ?, ...)
> 
> Please feel free to give your opinion.
> 

Why restrict the survey to Windows? I use Emacs/ada-mode as my preferred 
IDE in both Linux and Solaris. I hope Emacs 22 will come with an 
improved support for Ada. Sorry that my knowledge of Emacs Lisp is not 
enough to help.

-- 
Ada programming tutorial: http://en.wikibooks.org/wiki/Ada_Programming
Tutorial de programaci�n en Ada: 
http://es.wikibooks.org/wiki/Programaci%C3%B3n_en_Ada