end if;
end Get_Directory;
- Reference_Dir : constant String := Get_Directory (Directory);
- -- Current directory name specified
-
-- Start of processing for Normalize_Pathname
begin
if Last = 1
and then not Is_Absolute_Path (Path_Buffer (1 .. End_Path))
then
- Path_Buffer
- (Reference_Dir'Length + 1 .. Reference_Dir'Length + End_Path) :=
+ declare
+ Reference_Dir : constant String := Get_Directory (Directory);
+ Ref_Dir_Len : constant Natural := Reference_Dir'Length;
+ -- Current directory name specified and its length
+
+ begin
+ Path_Buffer (Ref_Dir_Len + 1 .. Ref_Dir_Len + End_Path) :=
Path_Buffer (1 .. End_Path);
- End_Path := Reference_Dir'Length + End_Path;
- Path_Buffer (1 .. Reference_Dir'Length) := Reference_Dir;
- Last := Reference_Dir'Length;
+ End_Path := Ref_Dir_Len + End_Path;
+ Path_Buffer (1 .. Ref_Dir_Len) := Reference_Dir;
+ Last := Ref_Dir_Len;
+ end;
end if;
Start := Last + 1;
-- directories listed in the environment Path. If the Exec_Name doesn't
-- have the executable suffix, it will be appended before the search.
-- Otherwise works like Locate_Regular_File below.
+ -- If the executable is not found, null is returned.
--
-- Note that this function allocates some memory for the returned value.
-- This memory needs to be deallocated after use.
-- (notably Unix systems) a simple file name may also work (if the
-- executable can be located in the path).
--
- -- "Spawn" should not be used in tasking applications. Why not??? More
- -- documentation would be helpful here ??? Is it really tasking programs,
- -- or tasking activity that cause trouble ???
+ -- "Spawn" should be avoided in tasking applications, since there are
+ -- subtle interactions between creating a process and signals/locks
+ -- that can cause troubles.
--
-- Note: Arguments in Args that contain spaces and/or quotes such as
-- "--GCC=gcc -v" or "--GCC=""gcc -v""" are not portable across all