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

* first set of deprecated tags.

Browse Source 
git-svn-id: trunk@7199 -
This commit is contained in:
marco 2007-04-29 22:08:18 +00:00
parent 4edf4de955
commit 4ba29cdbe1
3 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/unix/genfunch.inc
View File

@ -14,8 +14,8 @@
**********************************************************************}
function CreateShellArgV(const prog:string):ppchar;
function CreateShellArgV(const prog:string):ppchar; deprecated;
function CreateShellArgV(const prog:Ansistring):ppchar;
function CreateShellArgV(const prog:Ansistring):ppchar; deprecated;
procedure FreeShellArgV(p:ppchar);
procedure FreeShellArgV(p:ppchar); deprecated;

30
rtl/unix/sockets.pp
View File

@ -38,27 +38,27 @@ type
end;
const
EsockEINTR = EsysEINTR;
EsockEINTR = EsysEINTR;
EsockEBADF = EsysEBADF;
EsockEFAULT = EsysEFAULT;
EsockEINVAL = EsysEINVAL;
EsockEACCESS = ESysEAcces;
EsockEMFILE = ESysEmfile;
EsockEMSGSIZE = ESysEMsgSize;
EsockENOBUFS = ESysENoBufs;
EsockENOTCONN = ESysENotConn;
EsockENOTSOCK = ESysENotSock;
EsockEPROTONOSUPPORT = ESysEProtoNoSupport;
EsockEWOULDBLOCK = ESysEWouldBlock;
EsockEACCESS = ESysEAcces;
EsockEMFILE = ESysEmfile;
EsockEMSGSIZE = ESysEMsgSize;
EsockENOBUFS = ESysENoBufs;
EsockENOTCONN = ESysENotConn;
EsockENOTSOCK = ESysENotSock;
EsockEPROTONOSUPPORT = ESysEProtoNoSupport;
EsockEWOULDBLOCK = ESysEWouldBlock;
{ unix socket specific functions }
Procedure Str2UnixSockAddr(const addr:string;var t:TUnixSockAddr;var len:longint);
Function Bind(Sock:longint;const addr:string):boolean;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:text):Boolean;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:file):Boolean;
Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:text):Boolean;
Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:File):Boolean;
Procedure Str2UnixSockAddr(const addr:string;var t:TUnixSockAddr;var len:longint); deprecated;
Function Bind(Sock:longint;const addr:string):boolean; deprecated;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:text):Boolean; deprecated;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:file):Boolean; deprecated;
Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:text):Boolean; deprecated;
Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:File):Boolean; deprecated;
//function fpaccept (s:cint; addrx : psockaddr; addrlen : psocklen):cint; maybelibc
//function fpbind (s:cint; addrx : psockaddr; addrlen : tsocklen):cint; maybelibc

14
rtl/unix/unix.pp
View File

@ -88,12 +88,13 @@ function FpExecV(Const PathName:AnsiString;args:ppchar):cint;
function FpExecVP(Const PathName:AnsiString;args:ppchar):cint;
function FpExecVPE(Const PathName:AnsiString;args,env:ppchar):cint;
Function Shell (const Command:String):cint;
Function Shell (const Command:AnsiString):cint;
Function Shell (const Command:String):cint; deprecated;
Function Shell (const Command:AnsiString):cint; deprecated;
Function fpSystem(const Command:string):cint;
Function fpSystem(const Command:AnsiString):cint;
Function WaitProcess (Pid:cint):cint; { like WaitPid(PID,@result,0) Handling of Signal interrupts (errno=EINTR), returning the Exitcode of Process (>=0) or -Status if terminated}
Function WaitProcess (Pid:cint):cint;
{ like WaitPid(PID,@result,0) Handling of Signal interrupts (errno=EINTR), returning the Exitcode of Process (>=0) or -Status if terminated}
Function WIFSTOPPED (Status: Integer): Boolean;
Function W_EXITCODE (ReturnCode, Signal: Integer): Integer;
@ -113,9 +114,8 @@ Function StatFS (Path:pchar;Var Info:tstatfs):cint;
Function fpFlock (var T : text;mode : cint) : cint;
Function fpFlock (var F : File;mode : cint) : cint;
Function SelectText (var T:Text;TimeOut :PTimeVal):cint;
Function SelectText (var T:Text;TimeOut :cint):cint;
Function SelectText (var T:Text;TimeOut :PTimeVal):cint; deprecated;
Function SelectText (var T:Text;TimeOut :cint):cint; deprecated;
{**************************
Directory Handling
@ -394,7 +394,7 @@ End;
{$if defined(FPC_USE_FPEXEC) and not defined(USE_VFORK)}
{$define SHELL_USE_FPEXEC}
{$endif}
Function Shell(const Command:String):cint;
Function Shell(const Command:String):cint; deprecated;
{
Executes the shell, and passes it the string Command. (Through /bin/sh -c)
The current environment is passed to the shell.