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

* FileIsReadOnly fixed

Browse Source
This commit is contained in:
peter 2004-04-26 14:50:19 +00:00
parent 9f5f920b56
commit c17c80def1
1 changed files with 23 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
rtl/unix/sysutils.pp
View File

@ -318,11 +318,11 @@ begin
RenameFile:=BaseUnix.FpRename(OldNAme,NewName)>=0;
end;
Function FileIsReadOnly(const FileName: String): Boolean;
Function FileIsReadOnly(const FileName: String): Boolean;
begin
Result := fpAccess(PChar(FileName),W_OK)= 0;
end;
Result := fpAccess(PChar(FileName),W_OK)<>0;
end;
{****************************************************************************
Disk Functions
@ -500,8 +500,8 @@ Begin
so that long filenames will always be accepted. But don't
do it if there are already double quotes!
}
{$ifdef FPC_USE_FPEXEC} // Only place we still parse
cmdline2:=nil;
{$ifdef FPC_USE_FPEXEC} // Only place we still parse
cmdline2:=nil;
if Comline<>'' Then
begin
CommandLine:=ComLine;
@ -512,7 +512,7 @@ Begin
begin
getmem(cmdline2,2*sizeof(pchar));
cmdline2^:=pchar(Path);
cmdline2[1]:=nil;
cmdline2[1]:=nil;
end;
{$else}
if Pos ('"', Path) = 0 then
@ -527,7 +527,7 @@ Begin
begin
{The child does the actual exec, and then exits}
{$ifdef FPC_USE_FPEXEC}
fpexecv(pchar(Path),Cmdline2);
fpexecv(pchar(Path),Cmdline2);
{$else}
Execl(CommandLine);
{$endif}
@ -541,7 +541,7 @@ Begin
e.ErrorCode:=-1;
raise e;
end;
{ We're in the parent, let's wait. }
result:=WaitProcess(pid); // WaitPid and result-convert
@ -582,7 +582,7 @@ Begin
e.ErrorCode:=-1;
raise e;
end;
{ We're in the parent, let's wait. }
result:=WaitProcess(pid); // WaitPid and result-convert
@ -603,7 +603,7 @@ Var
fd : Integer;
fds : TfdSet;
timeout : TimeVal;
begin
fd:=FileOpen('/dev/null',fmOpenRead);
If Not(Fd<0) then
@ -621,7 +621,7 @@ Function GetLastOSError : Integer;
begin
Result:=fpgetErrNo;
end;
{****************************************************************************
Initialization code
****************************************************************************}
@ -635,7 +635,10 @@ end.
{
$Log$
Revision 1.38 2004-04-20 18:24:32 marco
Revision 1.39 2004-04-26 14:50:19 peter
* FileIsReadOnly fixed
Revision 1.38 2004/04/20 18:24:32 marco
* small fix for NIL arg ptr in first executeprocess
Revision 1.37 2004/03/04 22:15:16 marco
@ -643,13 +646,13 @@ end.
Revision 1.36 2004/02/13 10:50:23 marco
* Hopefully last large changes to fpexec and friends.
- naming conventions changes from Michael.
- shell functions get alternative under ifdef.
- arraystring function moves to unixutil
- unixutil now regards quotes in stringtoppchar.
- sysutils/unix get executeprocess(ansi,array of ansi), and
both executeprocess functions are fixed
- Sysutils/win32 get executeprocess(ansi,array of ansi)
- naming conventions changes from Michael.
- shell functions get alternative under ifdef.
- arraystring function moves to unixutil
- unixutil now regards quotes in stringtoppchar.
- sysutils/unix get executeprocess(ansi,array of ansi), and
both executeprocess functions are fixed
- Sysutils/win32 get executeprocess(ansi,array of ansi)
Revision 1.35 2004/02/12 15:31:06 marco
* First version of fpexec change. Still under ifdef or silently overloaded