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

* New RTL. Linux system unit and baseunix operational.

Browse Source
This commit is contained in:
marco 2002-12-18 16:49:02 +00:00
parent 821c826043
commit 193994c0a5
3 changed files with 269 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

115
rtl/unix/bunxh.inc Normal file
View File

@ -0,0 +1,115 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2002 by Marco van de Voort
The interface part of the baseunix unit.
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.
**********************************************************************}
Type TGrpArr = Array [0..0] of TGid; { C style array workarounds}
pGrpArr = ^TGrpArr;
TFilDes = Array [0..1] of cInt;
pFilDes = ^TFilDes;
Function FpsigEmptySet(var nset : TSigSet): cint;
Function FpSigFillSet (var nset : TSigSet): cInt;
Function FpSigAddSet (var nset : TSigSet; signo : cInt): cInt;
Function FpSigDelSet (var nset : TSigSet; signo : cInt): cInt;
Function FpSigIsMember(Const nset : TSigSet; signo : cInt): cInt;
Function FpSigProcMask(how : cInt; nset : pSigSet; oset : pSigSet): cInt;
{$ifndef ver1_0}
Function FpSigProcMask(how : cInt; Const nset : TSigSet; var oset : TSigSet): cInt;external name 'FPC_SYSC_SIGPROGMASK';
{$endif}
Function FpSigPending (var nset : TSigSet): cInt;
Function FpSigSuspend (Const sigmask : TSigSet): cInt;
Function FpUmask (cmask : TMode): TMode;
Function FpLink (existing : pChar; newone : pChar): cInt;
Function FpMkfifo (path : pChar; Mode : TMode): cInt;
Function FpChmod (path : pChar; Mode : TMode): cInt;
Function FpChown (path : pChar; owner : TUid; group : TGid): cInt;
Function FpUtime (path : pChar; times : putimbuf): cInt;
Function FpPipe (var fildes : tfildes):cInt;
Function FpDup (fildes : cInt): cInt;
Function FpDup2 (fildes, fildes2 : cInt): cInt;
Function FpTimes (var buffer : tms): TClock;
Function FpAlarm (seconds : cuint): cuint;
Function FpPause : cInt;
Function FpSleep (seconds : cuint): cuint;
Function FpGetpid : TPid;
Function FpGetppid : TPid;
Function FpGetuid : TUid;
Function FpGeteuid : TUid;
Function FpGetgid : TGid;
Function FpGetegid : TGid;
Function FpSetuid (uid : TUid): cInt;
Function FpSetgid (gid : TGid): cInt;
Function FpGetgroups (gidsetsize : cInt; var grouplist : tgrparr): cInt;
Function FpGetpgrp : TPid;
Function FpSetsid : TPid;
Function FpFcntl (fildes : cInt; cmd : cInt): cInt;
Function FpFcntl (fildes : cInt; cmd : cInt; arg : cInt): cInt;
Function FpFcntl (fildes : cInt; cmd : cInt; var arg : flock): cInt;
Function FpGetcwd (path:pChar; siz:TSize):pChar;
Function FpFork : TPid;
Function FpExecve (path : pChar; argv : ppChar; envp: ppChar): cInt;
Function FpExecv (path : pChar; argv : ppChar): cInt;
Function FpWaitpid (pid : TPid; var stat_loc : cInt; options: cInt): TPid;
Function FpWait (var stat_loc : cInt): TPid;
Procedure FpExit (Status : cInt);
Function FpKill (pid : TPid; sig: cInt): cInt;
Function FpUname (var name: utsname): cInt;
Function FpOpendir (dirname : pChar): pDir;
Function FpReaddir (var dirp : Dir) : pDirent;
Function FpClosedir (var dirp : Dir): cInt;
Function FpChdir (path : pChar): cInt;
Function FpOpen (path : pChar; flags : cInt; Mode: TMode):cInt;
Function FpMkdir (path : pChar; Mode: TMode):cInt;
Function FpUnlink (path : pChar): cInt;
Function FpRmdir (path : pChar): cInt;
Function FpRename (old : pChar; newpath: pChar): cInt;
Function FpFStat (fd : cInt; var sb : stat): cInt;
Function FpStat (path: pChar; var buf : stat): cInt;
Function FpAccess (pathname : pChar; aMode : cInt): cInt;
Function FpClose (fd : cInt): cInt;
Function FpRead (fd : cInt; buf: pChar; nbytes : TSize): TSsize;
Function FpWrite (fd : cInt; buf:pChar; nbytes : TSize): TSsize;
Function FpLseek (fd : cInt; offset : TOff; whence : cInt): TOff;
Function FpTime (var tloc : TTime): TTime;
Function FpFtruncate (fd : cInt; flength : TOff): cInt;
Function FpGetEnv (name : pChar): pChar;
Function FpGetEnv (name : String): pChar;
Function FPIsDir (m : TMode): Boolean;
Function FPIsChr (m : TMode): Boolean;
Function FPIsBlk (m : TMode): Boolean;
Function FPIsReg (m : TMode): Boolean;
Function FPIsFIFO (m : TMode): Boolean;
Function wifexited (Status : cInt): cInt;
Function wexitStatus (Status : cInt): cInt;
Function wstopsig (Status : cInt): cInt;
Function wifsignaled (Status : cInt): cInt;
Function wtermsig (Status : cInt): cInt;
{$i bunxovlh.inc} // overloads and/or redefs.
{
$Log$
Revision 1.1 2002-12-18 16:49:02 marco
* New RTL. Linux system unit and baseunix operational.
}

111
rtl/unix/bunxovl.inc Normal file
View File

@ -0,0 +1,111 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2002 by Marco van de Voort
Some generic overloads for stringfunctions in the baseunix unit.
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.
**********************************************************************}
Function FpLink (existing : AnsiString; newone : AnsiString): cInt;
Begin
FpLink:=FpLink(pchar(existing),pchar(newone));
End;
Function FpMkfifo (path : AnsiString; Mode : TMode): cInt;
Begin
FpMkfifo:=FpMkfifo(pchar(path),mode);
End;
Function FpChmod (path : AnsiString; Mode : TMode): cInt;
Begin
FpChmod:=FpChmod(pchar(path),mode);
End;
Function FpChown (path : AnsiString; owner : TUid; group : TGid): cInt;
Begin
FpChown:=FpChown(pchar(path),owner,group);
End;
Function FpUtime (path : AnsiString; times : putimbuf): cInt;
Begin
FpUtime:=FpUtime(pchar(path),times);
End;
Function FpGetcwd (path:AnsiString; siz:TSize):AnsiString;
Begin
FpGetcwd:=FpGetcwd(pchar(path),siz);
End;
Function FpExecve (path : AnsiString; argv : ppchar; envp: ppchar): cInt;
Begin
FpExecve:=FpExecve (pchar(path),argv,envp);
End;
Function FpExecv (path : AnsiString; argv : ppchar): cInt;
Begin
FpExecv:=FpExecv (pchar(path),argv);
End;
Function FpOpendir (dirname : AnsiString): pDir;
Begin
FpOpenDir:=FpOpenDir(dirname);
End;
Function FpChdir (path : AnsiString): cInt;
Begin
FpChDir:=FpChdir(pchar(Path));
End;
Function FpOpen (path : AnsiString; flags : cInt; Mode: TMode):cInt;
Begin
FpOpen:=FpOpen(pchar(Path),flags,mode);
End;
Function FpMkdir (path : AnsiString; Mode: TMode):cInt;
Begin
FpMkdir:=FpMkdir(pchar(Path),mode);
End;
Function FpUnlink (path : AnsiString): cInt;
Begin
FpUnlink:=FpUnlink(pchar(path));
End;
Function FpRmdir (path : AnsiString): cInt;
Begin
FpRmdir:=FpRmdir(pchar(path));
End;
Function FpRename (old : AnsiString;newpath: AnsiString): cInt;
Begin
FpRename:=FpRename(pchar(old),pchar(newpath));
End;
Function FpStat (path: AnsiString; var buf : stat): cInt;
begin
FpStat:=FpStat(pchar(path),buf);
End;
Function FpAccess (pathname : AnsiString; aMode : cInt): cInt;
Begin
FpAccess:=FpAccess(pchar(pathname),amode);
End;
{
$Log$
Revision 1.1 2002-12-18 16:49:02 marco
* New RTL. Linux system unit and baseunix operational.
}

43
rtl/unix/bunxovlh.inc Normal file
View File

@ -0,0 +1,43 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2002 by Marco van de Voort
Some generic overloads for stringfunctions in the baseunix unit.
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.
**********************************************************************}
Function FpLink (existing : AnsiString; newone : AnsiString): cInt;
Function FpMkfifo (path : AnsiString; Mode : TMode): cInt;
Function FpChmod (path : AnsiString; Mode : TMode): cInt;
Function FpChown (path : AnsiString; owner : TUid; group : TGid): cInt;
Function FpUtime (path : AnsiString; times : putimbuf): cInt;
Function FpGetcwd (path:AnsiString; siz:TSize):AnsiString;
Function FpExecve (path : AnsiString; argv : ppchar; envp: ppchar): cInt;
Function FpExecv (path : AnsiString; argv : ppchar): cInt;
Function FpOpendir (dirname : AnsiString): pDir;
Function FpChdir (path : AnsiString): cInt;
Function FpOpen (path : AnsiString; flags : cInt; Mode: TMode):cInt;
Function FpMkdir (path : AnsiString; Mode: TMode):cInt;
Function FpUnlink (path : AnsiString): cInt;
Function FpRmdir (path : AnsiString): cInt;
Function FpRename (old : AnsiString;newpath: AnsiString): cInt;
Function FpStat (path: AnsiString; var buf : stat): cInt;
Function FpAccess (pathname : AnsiString; aMode : cInt): cInt;
{
$Log$
Revision 1.1 2002-12-18 16:49:02 marco
* New RTL. Linux system unit and baseunix operational.
}