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

changed handle to THandle

Browse Source 
git-svn-id: trunk@3232 -
This commit is contained in:
armin 2006-04-16 15:28:10 +00:00
parent 5732df1be6
commit 31be63f9b5
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
rtl/netwlibc/sysutils.pp
View File

@ -81,7 +81,7 @@ implementation
File Functions File Functions
****************************************************************************} ****************************************************************************}
Function FileOpen (Const FileName : string; Mode : Integer) : Longint; Function FileOpen (Const FileName : string; Mode : Integer) : THandle;
VAR NWOpenFlags : longint; VAR NWOpenFlags : longint;
BEGIN BEGIN
NWOpenFlags:=0; NWOpenFlags:=0;
@ -96,75 +96,75 @@ BEGIN
end; end;
Function FileCreate (Const FileName : String) : Longint; Function FileCreate (Const FileName : String) : THandle;
begin begin
FileCreate:=Fpopen(Pchar(FileName),O_RdWr or O_Creat or O_Trunc or O_Binary); FileCreate:=Fpopen(Pchar(FileName),O_RdWr or O_Creat or O_Trunc or O_Binary);
if FileCreate >= 0 then if FileCreate >= 0 then
FileSetAttr (Filename, 0); // dont know why but open always sets ReadOnly flag FileSetAttr (Filename, 0); // dont know why but open always sets ReadOnly flag
end; end;
Function FileCreate (Const FileName : String; mode:longint) : Longint; Function FileCreate (Const FileName : String; mode:longint) : THandle;
begin begin
FileCreate:=FileCreate (FileName); FileCreate:=FileCreate (FileName);
end; end;
Function FileRead (Handle : Longint; Var Buffer; Count : longint) : Longint; Function FileRead (Handle : THandle; Var Buffer; Count : longint) : Longint;
begin begin
FileRead:=libc.fpread (Handle,@Buffer,Count); FileRead:=libc.fpread (Handle,@Buffer,Count);
end; end;
Function FileWrite (Handle : Longint; const Buffer; Count : Longint) : Longint; Function FileWrite (Handle : THandle; const Buffer; Count : Longint) : Longint;
begin begin
FileWrite:=libc.fpwrite (Handle,@Buffer,Count); FileWrite:=libc.fpwrite (Handle,@Buffer,Count);
end; end;
Function FileSeek (Handle,FOffset,Origin : Longint) : Longint; Function FileSeek (Handle : THandle; FOffset,Origin : Longint) : Longint;
begin begin
FileSeek:=libc.fplseek (Handle,FOffset,Origin); FileSeek:=libc.fplseek (Handle,FOffset,Origin);
end; end;
Function FileSeek (Handle : Longint; FOffset,Origin : Int64) : Int64; Function FileSeek (Handle : THandle; FOffset,Origin : Int64) : Int64;
begin begin
FileSeek:=libc.fplseek64 (Handle,FOffset,Origin); FileSeek:=libc.fplseek64 (Handle,FOffset,Origin);
end; end;
Procedure FileClose (Handle : Longint); Procedure FileClose (Handle : THandle);
begin begin
libc.fpclose(Handle); libc.fpclose(Handle);
end; end;
Function FileTruncate (Handle,Size: Longint) : boolean; Function FileTruncate (Handle : THandle; Size: Longint) : boolean;
begin begin
FileTruncate:=(libc.fpchsize(Handle,Size) = 0); FileTruncate:=(libc.fpchsize(Handle,Size) = 0);
end; end;
Function FileLock (Handle,FOffset,FLen : Longint) : Longint; Function FileLock (Handle : THandle; FOffset,FLen : Longint) : Longint;
begin begin
{$warning FileLock not implemented} {$warning FileLock not implemented}
//FileLock := _lock (Handle,FOffset,FLen); //FileLock := _lock (Handle,FOffset,FLen);
FileLock := -1; FileLock := -1;
end; end;
Function FileLock (Handle : Longint; FOffset,FLen : Int64) : Longint; Function FileLock (Handle : THandle; FOffset,FLen : Int64) : Longint;
begin begin
{$warning need to add 64bit FileLock call } {$warning need to add 64bit FileLock call }
//FileLock := FileLock (Handle, longint(FOffset),longint(FLen)); //FileLock := FileLock (Handle, longint(FOffset),longint(FLen));
FileLock := -1; FileLock := -1;
end; end;
Function FileUnlock (Handle,FOffset,FLen : Longint) : Longint; Function FileUnlock (Handle : THandle; FOffset,FLen : Longint) : Longint;
begin begin
//FileUnlock := _unlock (Handle,FOffset,FLen); //FileUnlock := _unlock (Handle,FOffset,FLen);
{$warning FileUnLock not implemented} {$warning FileUnLock not implemented}
FileUnlock := -1; FileUnlock := -1;
end; end;
Function FileUnlock (Handle : Longint; FOffset,FLen : Int64) : Longint; Function FileUnlock (Handle : THandle; FOffset,FLen : Int64) : Longint;
begin begin
{$warning need to add 64bit FileUnlock call } {$warning need to add 64bit FileUnlock call }
//FileUnlock := FileUnlock (Handle, longint(FOffset),longint(FLen)); //FileUnlock := FileUnlock (Handle, longint(FOffset),longint(FLen));
@ -311,7 +311,7 @@ end;
Function FileGetDate (Handle : Longint) : Longint; Function FileGetDate (Handle : THandle) : Longint;
Var Info : TStat; Var Info : TStat;
_PTM : PTM; _PTM : PTM;
begin begin
@ -329,7 +329,7 @@ begin
end; end;
Function FileSetDate (Handle,Age : Longint) : Longint; Function FileSetDate (Handle : THandle; Age : Longint) : Longint;
Begin Begin
{dont know how to do that, utime needs filename} {dont know how to do that, utime needs filename}
result := -1; result := -1;