Re: How to get pathname of executable

["Martin Dowie" <martin.dowie@baesystems.com>]

Dirk Heinrichs wrote:
> The GNAT GPL edition doesn't provide this, yet. But as soon as it
> does, I will use it.

Ugh?

with Ada.Command_Line; use Ada.Command_Line;
with Ada.Directories;  use Ada.Directories;
with Ada.Text_IO;      use Ada.Text_IO;

procedure Test_Exe_Loc is
begin
   Put_Line (Full_Name (Containing_Directory (Command_Name)));
end Test_Exe_Loc;

C:\Ada\Temp>test_exe_loc
c:\ada\temp

C:\Ada\Temp>gnat -v
GNAT GPL 2005 (20050729)
...