paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 17:03:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

replaced {$IFDEF windows} by {$IFDEF mswindows}, because fpc 2.0.2 doesn't define windows

Browse Source 
git-svn-id: trunk@8748 -
This commit is contained in:
vincents 2006-02-17 05:46:16 +00:00
parent 5afec4ebb6
commit 6baf007027
2 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/fileutil.pas
View File

@ -99,7 +99,7 @@ function GetTempFilename(const Path, Prefix: string): string;
implementation
{$IFNDEF windows}
{$IFNDEF mswindows}
uses
Unix, BaseUnix;
{$ENDIF}

42
lcl/include/fileutil.inc
View File

@ -39,7 +39,7 @@ end;
------------------------------------------------------------------------------}
function CompareFilenames(const Filename1, Filename2: string): integer;
begin
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
Result:=AnsiCompareText(Filename1, Filename2);
{$ELSE}
Result:=AnsiCompareStr(Filename1, Filename2);
@ -88,7 +88,7 @@ begin
Result:=0;
i:=1;
while (Result=0) and ((i<=Len1) and (i<=Len2)) do begin
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
Result:=Ord(LowerCaseTable[Ord(Filename1[i])])
-Ord(LowerCaseTable[Ord(Filename2[i])]); //!! Must be replaced by ansi characters !!
{$ELSE}
@ -107,7 +107,7 @@ end;
------------------------------------------------------------------------------}
function FilenameIsAbsolute(const TheFilename: string):boolean;
begin
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
// windows
Result:=FilenameIsWinAbsolute(TheFilename);
{$ELSE}
@ -219,7 +219,7 @@ begin
// check for double path delims
if (c=PathDelim) then begin
inc(SrcPos);
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
if (DestPos>2)
{$ELSE}
if (DestPos>1)
@ -258,7 +258,7 @@ begin
// 2. /.. -> skip .., keep /
inc(SrcPos,2);
continue;
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
end else if (DestPos=3) and (Result[2]=':')
and (Result[1] in ['a'..'z','A'..'Z']) then begin
// 3. C:.. -> copy
@ -447,7 +447,7 @@ end;
procedure CheckIfFileIsSymlink(const AFilename: string);
------------------------------------------------------------------------------}
procedure CheckIfFileIsSymlink(const AFilename: string);
{$IFNDEF WINDOWS}
{$IFNDEF MSWINDOWS}
var
AText: string;
{$ENDIF}
@ -456,7 +456,7 @@ begin
if not FileExists(AFilename) then begin
raise Exception.Create('file "'+AFilename+'" does not exist');
end;
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
raise Exception.Create('"'+AFilename+'" is not symlink');
{$ELSE}
if FpReadLink(AFilename)='' then begin
@ -486,7 +486,7 @@ end;
------------------------------------------------------------------------------}
function FileIsSymlink(const AFilename: string): boolean;
begin
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
Result:=false;
{$ELSE}
Result:=(FpReadLink(AFilename)<>'');
@ -498,7 +498,7 @@ end;
------------------------------------------------------------------------------}
function FileIsReadable(const AFilename: string): boolean;
begin
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
Result:=true;
{$ELSE}
Result:= BaseUnix.FpAccess(AFilename,BaseUnix.R_OK)=0;
@ -510,7 +510,7 @@ end;
------------------------------------------------------------------------------}
function FileIsWritable(const AFilename: string): boolean;
begin
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
Result:=((FileGetAttr(AFilename) and faReadOnly)=0);
{$ELSE}
Result:= BaseUnix.FpAccess(AFilename,BaseUnix.W_OK)=0;
@ -521,7 +521,7 @@ end;
GetFileDescription
------------------------------------------------------------------------------}
function GetFileDescription(const AFilename: string): string;
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
{$ELSE}
var
info: Stat;
@ -535,7 +535,7 @@ var
{$ENDIF}
begin
Result:='';
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
{$ELSE}
if not (FpStat(AFilename,info)=0) then exit;
@ -620,14 +620,14 @@ end;
------------------------------------------------------------------------------}
function ReadAllLinks(const Filename: string;
ExceptionOnError: boolean): string;
{$IFNDEF WINDOWS}
{$IFNDEF MSWINDOWS}
var
LinkFilename: string;
AText: string;
{$ENDIF}
begin
Result:=Filename;
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
{$ELSE}
repeat
@ -681,7 +681,7 @@ end;
------------------------------------------------------------------------------}
function FileIsExecutable(const AFilename: string): boolean;
begin
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
Result:=FileExists(AFilename);
{$ELSE}
Result:= BaseUnix.FpAccess(AFilename,BaseUnix.X_OK)=0;
@ -692,7 +692,7 @@ end;
procedure CheckIfFileIsExecutable(const AFilename: string);
------------------------------------------------------------------------------}
procedure CheckIfFileIsExecutable(const AFilename: string);
{$IFNDEF WINDOWS}
{$IFNDEF MSWINDOWS}
var AText: string;
{$ENDIF}
begin
@ -704,7 +704,7 @@ begin
if DirPathExists(AFilename) then begin
raise Exception.Create('file "'+AFilename+'" is a directory and not an executable');
end;
{$IFNDEF WINDOWS}
{$IFNDEF MSWINDOWS}
if not FileIsExecutable(AFilename) then
begin
AText:='"'+AFilename+'"';
@ -792,7 +792,7 @@ begin
Result:=ParamStr(0);
if ExtractFilePath(Result)='' then begin
// program was started via PATH
{$IFDEF windows}
{$IFDEF MSWINDOWS}
Flags:=[];
{$ELSE}
Flags:=[sffDontSearchInBasePath];
@ -946,7 +946,7 @@ begin
else
begin
if FilePos>FileLen then break;
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
if UpperCaseTable[byte(MaskChar)]
=UpperCaseTable[byte(TrimmedFile[FilePos])] then
{$ELSE}
@ -1158,7 +1158,7 @@ begin
if not FileExists(Filename) then exit;
// check every directory and filename
StartPos:=1;
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
// uppercase Drive letter and skip it
if ((length(Result)>=2) and (Result[1] in ['A'..'Z','a'..'z'])
and (Result[2]=':')) then begin
@ -1219,7 +1219,7 @@ end;
function GetAllFilesMask: string;
begin
{$IFDEF WINDOWS}
{$IFDEF MSWINDOWS}
Result:='*.*';
{$ELSE}
Result:='*';