Re: How to find directory where the program is?

["Grein, Christoph" <christoph.grein@eurocopter.com>]

Observation for Ada.Command_Line.Command_Name:
   Win98: Always the full path and extension are returned.
   WinNT: Only the name as entered on the command line is returned.
Thus we have to look for a portable way.
RM A.15(16) leaves the string completely implementation defined.
RM A.8.2(22) requires the full name to be returned.
Thanks to Randy Brukardt for this hint (a long time ago, about Jan 2001).
It may however not be possible to open the executable file with Text_IO.

  function Full_Name return String is
    -- Retrieve the full name via RM A.8.2(22).
    Command: String renames Ada.Command_Line.Command_Name;
    use Ada.Text_IO;
    Executable: File_Type;
  begin
    if Extension (Command) = "" then
      Open (Executable, In_File, Command & ".exe");
    else
      Open (Executable, In_File, Command);
    end if;
    declare
      Full_Name: String renames Name (Executable);
    begin
      Close (Executable);
      return Full_Name;
    end;
  exception
    when Name_Error =>  -- file not found
      return "";        -- set error condition
  end Full_Name;