mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-05 05:23:40 +02:00
308 lines
8.5 KiB
PHP
308 lines
8.5 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
(c) 2000-2003 by Marco van de Voort
|
|
member of the Free Pascal development team.
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
socket call implementations for FreeBSD
|
|
|
|
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.
|
|
}
|
|
|
|
|
|
{******************************************************************************
|
|
Basic Socket Functions
|
|
******************************************************************************}
|
|
|
|
function fpsocket (domain:cint; xtype:cint; protocol: cint):cint;
|
|
Begin
|
|
fpSocket:=Do_Syscall(syscall_nr_socket,Domain,xtype,Protocol);
|
|
internal_socketerror:=fpgeterrno;
|
|
End;
|
|
|
|
function fpsend (s:cint; msg:pointer; len:size_t; flags:cint):ssize_t;
|
|
begin
|
|
fpSend:=do_syscall(syscall_nr_sendto,S,TSysParam(msg),Len,Flags,0,0);
|
|
internal_socketerror:=fpgeterrno;
|
|
end;
|
|
|
|
function fpsendto (s:cint; msg:pointer; len:size_t; flags:cint; tox :psockaddr; tolen: tsocklen):ssize_t;
|
|
begin
|
|
fpSendto:=do_syscall(syscall_nr_sendto,S,TSysParam(msg),Len,Flags,TSysParam(tox),tolen);
|
|
internal_socketerror:=fpgeterrno;
|
|
end;
|
|
|
|
function fprecv (s:cint; buf: pointer; len: size_t; flags:cint):ssize_t;
|
|
begin
|
|
fpRecv:=do_syscall(syscall_nr_Recvfrom,S,tsysparam(buf),len,flags,0,0);
|
|
internal_socketerror:=fpgeterrno;
|
|
end;
|
|
|
|
function fprecvfrom (s:cint; buf: pointer; len: size_t; flags: cint; from : psockaddr; fromlen : psocklen):ssize_t;
|
|
begin
|
|
fpRecvFrom:=do_syscall(syscall_nr_Recvfrom,S,TSysParam(buf),len,flags,TSysParam(from),TSysParam(fromlen));
|
|
internal_socketerror:=fpgeterrno;
|
|
end;
|
|
|
|
function fpbind (s:cint; addrx : psockaddr; addrlen : tsocklen):cint;
|
|
begin
|
|
fpBind:=do_syscall(syscall_nr_Bind,S,TSysParam(addrx),addrlen);
|
|
internal_socketerror:=fpgeterrno;
|
|
end;
|
|
|
|
function fplisten (s:cint; backlog : cint):cint;
|
|
begin
|
|
fpListen:=do_syscall(syscall_nr_Listen,S,backlog);
|
|
internal_socketerror:=fpgeterrno;
|
|
end;
|
|
|
|
function fpaccept (s:cint; addrx : psockaddr; addrlen : psocklen):cint;
|
|
begin
|
|
fpAccept:=do_syscall(syscall_nr_accept,S,TSysParam(addrx),TSysParam(addrlen));
|
|
internal_socketerror:=fpgeterrno;
|
|
end;
|
|
|
|
function fpconnect (s:cint; name : psockaddr; namelen : tsocklen):cint;
|
|
begin
|
|
fpConnect:=do_syscall(syscall_nr_connect,S,TSysParam(name),namelen);
|
|
internal_socketerror:=fpgeterrno;
|
|
end;
|
|
|
|
function fpshutdown (s:cint; how:cint):cint;
|
|
begin
|
|
fpShutDown:=do_syscall(syscall_nr_shutdown,S,how);
|
|
internal_socketerror:=fpgeterrno;
|
|
end;
|
|
|
|
function fpgetsockname (s:cint; name : psockaddr; namelen : psocklen):cint;
|
|
begin
|
|
fpGetSockName:=do_syscall(syscall_nr_GetSockName,S,TSysParam(name),TSysParam(namelen));
|
|
internal_socketerror:=fpgeterrno;
|
|
end;
|
|
|
|
function fpgetpeername (s:cint; name : psockaddr; namelen : psocklen):cint;
|
|
begin
|
|
fpGetPeerName:=do_syscall(syscall_nr_GetPeerName,S,TSysParam(name),TSysParam(namelen));
|
|
internal_socketerror:=fpgeterrno;
|
|
end;
|
|
|
|
function fpsetsockopt (s:cint; level:cint; optname:cint; optval:pointer; optlen : tsocklen):cint;
|
|
begin
|
|
fpSetSockOpt:=do_syscall(syscall_nr_SetSockOpt,S,level,optname,TSysParam(optval),optlen);
|
|
internal_socketerror:=fpgeterrno;
|
|
end;
|
|
|
|
function fpgetsockopt (s:cint; level:cint; optname:cint; optval:pointer; optlen : psocklen):cint;
|
|
begin
|
|
fpGetSockOpt:=do_syscall(syscall_nr_GetSockOpt,S,level,TSysParam(optname),TSysParam(optval),TSysParam(optlen));
|
|
internal_socketerror:=fpgeterrno;
|
|
end;
|
|
|
|
function fpsocketpair (d:cint; xtype:cint; protocol:cint; sv:pcint):cint;
|
|
|
|
begin
|
|
fpSocketPair:=do_syscall(syscall_nr_SocketPair,d,xtype,protocol,TSysParam(sv));
|
|
internal_socketerror:=fpgeterrno;
|
|
end;
|
|
|
|
(*
|
|
{******************************************************************************
|
|
Basic Socket Functions
|
|
******************************************************************************}
|
|
|
|
Function socket(Domain,SocketType,Protocol:Longint):Longint;
|
|
begin
|
|
Socket:=Do_Syscall(syscall_nr_socket,Domain,SocketType,Protocol);
|
|
end;
|
|
|
|
Function CloseSocket (Sock:Longint):Longint;
|
|
begin
|
|
if fpclose(Sock)=0 then
|
|
CloseSocket := 0 else
|
|
CloseSocket := -1;
|
|
end;
|
|
|
|
Function Send(Sock:Longint;Const Buf;BufLen,Flags:Longint):Longint;
|
|
begin
|
|
Send:=do_syscall(syscall_nr_sendto,Sock,Longint(@Buf),BufLen,Flags,0,0);
|
|
end;
|
|
|
|
Function SendTo(Sock:Longint;Const Buf;BufLen,Flags:Longint;Var Addr; AddrLen : Longint):Longint;
|
|
begin
|
|
Sendto:=do_syscall(syscall_nr_Sendto,Sock,Longint(@Buf),BufLen,Flags,Longint(@Addr),AddrLen);
|
|
end;
|
|
|
|
Function Recv(Sock:Longint;Var Buf;BufLen,Flags:Longint):Longint;
|
|
begin
|
|
Recv:=do_syscall(syscall_nr_Recvfrom,Sock,Longint(@Buf),BufLen,Flags,0,0);
|
|
end;
|
|
|
|
Function RecvFrom(Sock : Longint; Var Buf; Buflen,Flags : Longint; Var Addr ; AddrLen : Integer) : longint;
|
|
|
|
begin
|
|
RecvFrom:=do_syscall(syscall_nr_Recvfrom,Sock,Longint(@buf),buflen,flags,Longint(@Addr),AddrLen);
|
|
end;
|
|
|
|
Function Bind(Sock:Longint;Const Addr;AddrLen:Longint):Boolean;
|
|
begin
|
|
Bind:=(do_syscall(syscall_nr_Bind,Sock,Longint(@Addr),AddrLen)=0);
|
|
end;
|
|
|
|
Function Listen(Sock,MaxConnect:Longint):Boolean;
|
|
begin
|
|
Listen:=(do_syscall(syscall_nr_Listen,Sock,MaxConnect,0)=0);
|
|
end;
|
|
|
|
Function Accept(Sock:Longint;Var Addr;Var Addrlen:Longint):Longint;
|
|
begin
|
|
Accept:=do_syscall(syscall_nr_accept,Sock,longint(@Addr),longint(@AddrLen));
|
|
If Accept<0 Then
|
|
Accept:=-1;
|
|
end;
|
|
|
|
Function Connect(Sock:Longint;Const Addr;Addrlen:Longint): boolean;
|
|
|
|
begin
|
|
Connect:=do_syscall(syscall_nr_connect,Sock,longint(@Addr),AddrLen)=0;
|
|
end;
|
|
|
|
|
|
Function Shutdown(Sock:Longint;How:Longint):Longint;
|
|
begin
|
|
ShutDown:=do_syscall(syscall_nr_shutdown,Sock,How);
|
|
end;
|
|
|
|
|
|
Function GetSocketName(Sock:Longint;Var Addr;Var Addrlen:Longint):Longint;
|
|
begin
|
|
GetSocketName:=do_syscall(syscall_nr_GetSockName,Sock,longint(@Addr),longint(@AddrLen));
|
|
end;
|
|
|
|
|
|
|
|
Function GetPeerName(Sock:Longint;Var Addr;Var Addrlen:Longint):Longint;
|
|
begin
|
|
GetPeerName:=do_syscall(syscall_nr_GetPeerName,Sock,longint(@Addr),longint(@AddrLen));
|
|
end;
|
|
|
|
|
|
|
|
Function SetSocketOptions(Sock,Level,OptName:Longint;Const OptVal;optlen:longint):Longint;
|
|
begin
|
|
SetSocketOptions:=do_syscall(syscall_nr_SetSockOpt,Sock,Level,OptName,Longint(@OptVal),OptLen,0);
|
|
end;
|
|
|
|
|
|
|
|
Function GetSocketOptions(Sock,Level,OptName:Longint;Var OptVal;Var optlen:longint):Longint;
|
|
begin
|
|
GetSocketOptions:=do_syscall(syscall_nr_GetSockOpt,Sock,Level,OptName,Longint(@OptVal),OptLen,0);
|
|
end;
|
|
|
|
|
|
|
|
Function SocketPair(Domain,SocketType,Protocol:Longint;var Pair:TSockArray):Longint;
|
|
begin
|
|
SocketPair:=do_syscall(syscall_nr_SocketPair,Domain,SocketType,Protocol,longint(@Pair),0,0);
|
|
end;
|
|
|
|
{******************************************************************************
|
|
UnixSock
|
|
******************************************************************************}
|
|
|
|
Procedure Str2UnixSockAddr(const addr:string;var t:TUnixSockAddr;var len:longint);
|
|
begin
|
|
Move(Addr[1],t.Path,length(Addr));
|
|
t.Family:=AF_UNIX;
|
|
t.Path[length(Addr)]:=#0;
|
|
Len:=Length(Addr)+3;
|
|
end;
|
|
|
|
|
|
Function Bind(Sock:longint;const addr:string):boolean;
|
|
var
|
|
UnixAddr : TUnixSockAddr;
|
|
AddrLen : longint;
|
|
begin
|
|
Str2UnixSockAddr(addr,UnixAddr,AddrLen);
|
|
Bind(Sock,UnixAddr,AddrLen);
|
|
Bind:=(SocketError=0);
|
|
end;
|
|
|
|
|
|
|
|
Function DoAccept(Sock:longint;var addr:string):longint;
|
|
var
|
|
UnixAddr : TUnixSockAddr;
|
|
AddrLen : longint;
|
|
begin
|
|
AddrLen:=length(addr)+3;
|
|
DoAccept:=Accept(Sock,UnixAddr,AddrLen);
|
|
Move(UnixAddr.Path,Addr[1],AddrLen);
|
|
SetLength(Addr,AddrLen);
|
|
end;
|
|
|
|
|
|
|
|
Function DoConnect(Sock:longint;const addr:string):Boolean;
|
|
var
|
|
UnixAddr : TUnixSockAddr;
|
|
AddrLen : longint;
|
|
begin
|
|
Str2UnixSockAddr(addr,UnixAddr,AddrLen);
|
|
DoConnect:=Connect(Sock,UnixAddr,AddrLen);
|
|
end;
|
|
|
|
Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:text):Boolean;
|
|
var
|
|
s : longint;
|
|
begin
|
|
S:=DoAccept(Sock,addr);
|
|
if S>0 then
|
|
begin
|
|
Sock2Text(S,SockIn,SockOut);
|
|
Accept:=true;
|
|
end
|
|
else
|
|
Accept:=false;
|
|
end;
|
|
|
|
|
|
|
|
Function Accept(Sock:longint;var addr:string;var SockIn,SockOut:File):Boolean;
|
|
var
|
|
s : longint;
|
|
begin
|
|
S:=DoAccept(Sock,addr);
|
|
if S>0 then
|
|
begin
|
|
Sock2File(S,SockIn,SockOut);
|
|
Accept:=true;
|
|
end
|
|
else
|
|
Accept:=false;
|
|
end;
|
|
|
|
|
|
|
|
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:text):Boolean;
|
|
begin
|
|
Connect:=DoConnect(Sock,addr);
|
|
If Connect then
|
|
Sock2Text(Sock,SockIn,SockOut);
|
|
end;
|
|
|
|
|
|
|
|
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:file):Boolean;
|
|
begin
|
|
Connect:=DoConnect(Sock,addr);
|
|
if Connect then
|
|
Sock2File(Sock,SockIn,SockOut);
|
|
end;
|
|
|
|
*) |