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