From: Jérôme <j.haguet@cadwin.com>
Subject: Re: Emacs 22 (CVS) and ada-find-**-references
Date: 1 Jun 2006 01:38:28 -0700
Date: 2006-06-01T01:38:28-07:00 [thread overview]
Message-ID: <1149151108.766751.83930@c74g2000cwc.googlegroups.com> (raw)
In-Reply-To: <1148999329.577971.65960@y43g2000cwc.googlegroups.com>
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
next prev parent reply other threads:[~2006-06-01 8:38 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2006-05-30 14:28 Emacs 22 (CVS) and ada-find-**-references Jérôme
2006-06-01 8:38 ` Jérôme [this message]
2006-06-04 22:19 ` Manuel G. R.
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox