* New RTL. Linux system unit and baseunix operational.

rtl/unix/bunxh.inc

@@ -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.
+
+
+}

rtl/unix/bunxovl.inc

@@ -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.
+
+
+}
+
+ 

rtl/unix/bunxovlh.inc

@@ -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.
+
+
+}
+
+