* osint.adb (Is_Relative): Remove duplicate.
From-SVN: r46504
This commit is contained in:
parent
90a9fff2b0
commit
1a7e4df49b
|
@ -1,3 +1,7 @@
|
|||
2001-10-25 Geert Bosch <bosch@gnat.com>
|
||||
|
||||
* osint.adb (Is_Relative): Remove duplicate.
|
||||
|
||||
2001-10-25 Pascal Obry <obry@gnat.com>
|
||||
|
||||
* osint.adb (Read_Default_Search_Dirs): correctly detect relative
|
||||
|
@ -7,7 +11,7 @@
|
|||
* osint.adb: Minor reformatting
|
||||
|
||||
* osint.adb (Is_Relative): implementation using
|
||||
GNAT.OS_Lib.Is_Absolute_Path. Better fix for 8121-009.
|
||||
GNAT.OS_Lib.Is_Absolute_Path. Better fix.
|
||||
|
||||
2001-10-25 Pascal Obry <obry@gnat.com>
|
||||
|
||||
|
|
|
@ -1681,26 +1681,6 @@ package body Osint is
|
|||
Search_Dir_Default_Name : String_Access)
|
||||
return String_Access
|
||||
is
|
||||
function Is_Relative (S : String; K : Positive) return Boolean;
|
||||
-- Returns True if a relative directory specification is found in S at
|
||||
-- position K.
|
||||
|
||||
function Is_Relative (S : String; K : Positive) return Boolean is
|
||||
begin
|
||||
return
|
||||
not (Is_Directory_Separator (S (K)) -- Unix style absolute pathname
|
||||
|
||||
or else -- DOS style absolute pathname with drive letter
|
||||
|
||||
(S'Last > K + 2
|
||||
and then
|
||||
(S (K) in 'a' .. 'z' or else S (K) in 'A' .. 'Z')
|
||||
and then
|
||||
S (K + 1) = ':'
|
||||
and then
|
||||
Is_Directory_Separator (S (K + 2))));
|
||||
end Is_Relative;
|
||||
|
||||
Prefix_Len : constant Integer := Search_Dir_Prefix.all'Length;
|
||||
Buffer : String (1 .. Prefix_Len + Search_File.all'Length + 1);
|
||||
File_FD : File_Descriptor;
|
||||
|
|
Loading…
Reference in New Issue