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

No longer needed, now sysutils is used.

Browse Source
This commit is contained in:
michael 1999-02-02 21:33:03 +00:00
parent 6facec26d6
commit 88db484b31
1 changed files with 0 additions and 148 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

148
fcl/linux/osfile.inc
View File

@ -1,148 +0,0 @@
{
$Id$
This file is part of the Free Component Library (FCL)
Copyright (c) 1998 by the Free Pascal development team
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{
This file implements the system-dependent calls needed for the
classes unit.
}
{
oscalls contains a copy of the needed functions from syscalls.inc
to make things go faster.
}
{$i oscalls.inc}
Function OSCreateFile (Const Filename : string; Mode : Longint) : longint;
{
Creates a file with name FileName, using mode MODE
--> Filename : String giving the path to the file.
Mode : Mode can be
fmCreate : Create file;
fmOpenRead : open for reading;
fmOpenWrite : open for writing;
<-- File Handle, or -1 on error.
}
var
regs : SysCallregs;
NewName : string;
Begin
// Convert mode. The meaning of fmcreate isn't
// entirely clear..
if (mode and fmcreate) = fmcreate then
mode:=OPEN_CREAT or OPEN_RDWR;
//!! This MUST be changed when using ansistrings !!!
NewName:=FileName+#0;
regs.reg2:=longint(@NewName[1]);
regs.reg3:=Mode;
regs.reg4:=438; { 666 octal }
Do_SysCall(SysCall_nr_open,regs);
Result:=regs.reg1;
If Result<0 then Result:=-1;
End;
Function OSReadHandle(Handle : Longint;Var Buffer; Count : Longint): Longint;
{
Read from a handle
--> Handle : file,pipe,etc Handle to read from.
Buffer : Location where to put the read bytes.
Count : Number of bytes that should be read
<-- Number of bytes actually read, or -1 on error.
}
var sr : syscallregs;
begin
sr.reg2:=Handle;
sr.reg3:=Longint(@Buffer);
sr.reg4:=Count;
Do_Syscall (syscall_nr_read,sr);
Result:=sr.reg1;
If Result<-1 then Result:=-1;
end;
Function OSWriteHandle(Handle : Longint;var Buffer; Count : longint) : Longint;
{
Write to a handle
--> Handle : file,pipe,etc Handle to write to.
Buffer : Location where to get the bytes.
Count : Number of bytes that should be written.
<-- Number of bytes actually written, or -1 on error.
}
Var sr: syscallregs;
begin
sr.reg2:=Handle;
sr.reg3:=Longint(@Buffer);
sr.reg4:=Count;
Do_Syscall (syscall_nr_write,sr);
Result:=sr.reg1;
If Result<-1 then Result:=-1;
end;
Function OSSetHandleSize (Handle,Size : Longint) : longint;
{
Set size of handle (for files only)
--> Handle : Handle to set size for.
Size : Size to be set.
<-- 0 on succes or -1 on error.
}
Var sr: syscallregs;
begin
sr.reg2:=Handle;
sr.reg3:=Size;
Do_Syscall (SysCall_nr_Ftruncate,sr);
Result:=sr.reg1;
If Result<-1 then Result:=-1;
end;
Function OSSeekHandle (Handle,OffSet,Origin : longint) : longint;
{
Seek Handle position starting from Origin
--> Handle : Handle of file to do seek on.
Offset : Position to seek.
Origin : Where to start seek:
soFromBeginning
soFromCurrent
soFromEnd
<-- -1 on error, else the new fileposition in bytes from the origin.
}
var sr : syscallregs;
begin
sr.reg2:=Handle;
sr.reg3:=Offset;
sr.reg4:=Origin;
Do_Syscall(Syscall_nr_lseek,sr);
Result:=sr.reg1;
If Result<-1 then Result:=-1;
end;
Function OSCloseHandle (Handle : longint) : longint;
{
Close file associated with HAndle.
--> Handle : Handle of file to do seek on.
<-- 0 on succes, -1 on error.
}
Var sr : syscallregs;
begin
sr.reg2:=Handle;
Do_Syscall (syscall_nr_close,sr);
Result:=sr.reg1;
If Result<-1 then Result:=-1;
end;