Pārlūkot izejas kodu

+ Added overloaded functions

michael 21 gadi atpakaļ
vecāks
revīzija
e5e7099892
2 mainītis faili ar 29 papildinājumiem un 3 dzēšanām
  1. 23 1
      rtl/unix/bunxovl.inc
  2. 6 2
      rtl/unix/bunxovlh.inc

+ 23 - 1
rtl/unix/bunxovl.inc

@@ -46,10 +46,23 @@ Begin
   FpUtime:=FpUtime(pchar(path),times);
 End;
 
+{
 Function  FpGetcwd (path:AnsiString; siz:TSize):AnsiString;
 Begin
   FpGetcwd:=ansistring(pchar(FpGetcwd(pchar(path),siz)));
 End;
+}
+Function  FpGetcwd :AnsiString;
+
+Var
+  Buf : Array[0..PATH_MAX+1]  of char;
+Begin 
+  Buf[PATH_MAX+1]:=#0; 
+  If FpGetcwd(pchar(Buf[0]),PATH_MAX)=Nil then
+    FpGetcwd:=''
+  else  
+    FpGetcwd:=Buf;
+End;
 
 Function  FpExecve (path : AnsiString; argv : ppchar; envp: ppchar): cInt;
 Begin
@@ -339,6 +352,12 @@ begin
   fpSelect:=fpSelect(T,p);
 end;
 
+function  FpWaitPid (pid : TPid; Var Status : cInt; Options : cint) : TPid;
+
+begin
+  fpWaitPID:=fpWaitPID(Pid,@Status,Options);
+end;
+
 Function fpReadLink(Name:ansistring):ansistring;
 {
   Read a link (where it points to)
@@ -361,7 +380,10 @@ end;
 
 {
  $Log$
- Revision 1.14  2004-11-19 13:15:14  marco
+ Revision 1.15  2004-11-23 08:40:34  michael
+ + Added overloaded functions
+
+ Revision 1.14  2004/11/19 13:15:14  marco
   * external rework. Mostly done.
 
  Revision 1.13  2004/11/14 12:21:08  marco

+ 6 - 2
rtl/unix/bunxovlh.inc

@@ -21,7 +21,7 @@ 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  FpGetcwd : AnsiString;
 Function  FpExecve  (path : AnsiString; argv : ppchar; envp: ppchar): cInt;
 Function  FpExecv   (path : AnsiString; argv : ppchar): cInt;
 Function  FpOpendir (dirname : AnsiString): pDir;
@@ -39,6 +39,7 @@ Function  FpRename  (old  : AnsiString;newpath: AnsiString): cInt;
 Function  FpStat    (path: AnsiString; var buf : stat): cInt;
 Function  FpStat    (path: String; var buf : stat): cInt;
 Function  FpAccess  (pathname : AnsiString; aMode : cInt): cInt; 
+function  FpWaitPid (pid : TPid; Var Status : cInt; Options : cint) : TPid;
 
 Function  FPFStat   (var F:Text;Var Info:stat):Boolean;
 Function  FPFStat   (var F:File;Var Info:stat):Boolean;
@@ -92,7 +93,10 @@ Function  wtermsig     (Status : cInt): cInt;
 Function fpReadLink(Name:ansistring):ansistring;
 {
  $Log$
- Revision 1.5  2004-11-14 12:21:08  marco
+ Revision 1.6  2004-11-23 08:40:34  michael
+ + Added overloaded functions
+
+ Revision 1.5  2004/11/14 12:21:08  marco
   * moved some calls from unix to baseunix. Darwin untested.
 
  Revision 1.4  2003/12/30 12:24:01  marco