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

* File searching now as in compiler, using lower and uppercase filenames if needed

Browse Source 
git-svn-id: trunk@11049 -
This commit is contained in:
michael 2008-05-23 08:05:58 +00:00
parent 73a3507bac
commit 5b812fd878
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/fcl-passrc/src/pscanner.pp
View File

@ -159,12 +159,14 @@ type
TFileResolver = class
private
FIncludePaths: TStringList;
FStrictFileCase : Boolean;
public
constructor Create;
destructor Destroy; override;
procedure AddIncludePath(const APath: string);
function FindSourceFile(const AName: string): TLineReader;
function FindIncludeFile(const AName: string): TLineReader;
Property StrictFileCase : Boolean Read FStrictFileCase Write FStrictFileCase;
end;
EScannerError = class(Exception);
@ -413,7 +415,20 @@ begin
begin
Try
FN:=FIncludePaths[i]+AName;
If FileExists(FN) then
If not FileExists(FN) then
If StrictFileCase then
FN:=''
else
begin
fn:=LowerCase(FN);
If not FileExists(Fn) then
begin
FN:=uppercase(Fn);
If not FileExists(FN) then
FN:='';
end;
end;
If (FN<>'') then
Result := TFileLineReader.Create(FN);
except
Result:=Nil;