paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 14:09:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* case insensitve directory search support

Browse Source 
git-svn-id: trunk@5104 -
This commit is contained in:
peter 2006-10-30 23:50:31 +00:00
parent 9f5d69ce31
commit 7e8074463c
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/cfileutils.pas
View File

@ -148,7 +148,12 @@ implementation
if ((dir.attr and faDirectory)<>faDirectory) or
(dir.Name<>'.') or
(dir.Name<>'..') then
DirectoryEntries.Add(Dir.Name,Pointer(Dir.Attr));
begin
if not(tf_files_case_sensitive in source_info.flags) then
DirectoryEntries.Add(Lower(Dir.Name),Pointer(Dir.Attr))
else
DirectoryEntries.Add(Dir.Name,Pointer(Dir.Attr));
end;
until findnext(dir) <> 0;
end;
end;
@ -158,7 +163,10 @@ implementation
var
Attr : Longint;
begin
Attr:=PtrInt(DirectoryEntries.Find(AName));
if not(tf_files_case_sensitive in source_info.flags) then
Attr:=PtrInt(DirectoryEntries.Find(Lower(AName)))
else
Attr:=PtrInt(DirectoryEntries.Find(AName));
if Attr<>0 then
Result:=((Attr and faDirectory)=0)
else
@ -170,7 +178,10 @@ implementation
var
Attr : Longint;
begin
Attr:=PtrInt(DirectoryEntries.Find(AName));
if not(tf_files_case_sensitive in source_info.flags) then
Attr:=PtrInt(DirectoryEntries.Find(Lower(AName)))
else
Attr:=PtrInt(DirectoryEntries.Find(AName));
if Attr<>0 then
Result:=((Attr and faDirectory)=faDirectory)
else