Re: How to find directory where the program is?

["Randy Brukardt" <randy@rrsoftware.com>]

Preben Randhol wrote in message ...
>How can one in Ada95 find out from which directory the Ada program is
>stored in.  I mean I need to find out if my program is stored in
>/usr/bin/ or /usr/local/bin or some other directory. Does anybody know
>how I can do this. Note that current directory is not equal to the
>directory the program is stored in. I use GNAT so if GNAT has some
>routines for this that I have missed, please tell me. I'll make it
>portable later if needed.

If you want the location that the program is launched from, you want
Argv(0) (in C terms). Ada makes this available in
Ada.Command_Line.Command_Name. Since this is implementation-defined, it
may not include the path on all targets. It does on Windows.

The program:

with Ada.Text_IO, Ada.Command_Line;
procedure Temp is
begin
    Ada.Text_IO.Put_Line (Ada.Command_Line.Command_Name);
end Temp;

prints:

E:\TESTING\NT\CONSOLE\TEMP.EXE

on my Windows machine with Janus/Ada. (Since Janus/Ada just returns what
Windows gives it, I would be surprised if some other Ada compiler didn't
return the full path on Windows.)

                Randy.