paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 07:49:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Added overloaded functions

Browse Source
This commit is contained in:
michael 2004-11-23 08:40:34 +00:00
parent d9b2e5cc26
commit e5e7099892
2 changed files with 29 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/unix/bunxovl.inc
View File

@ -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

8
rtl/unix/bunxovlh.inc
View File

@ -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