mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 16:51:35 +01:00
316 lines
8.7 KiB
ObjectPascal
316 lines
8.7 KiB
ObjectPascal
{
|
|
$Id$
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 2002 Yuri Prokushev
|
|
|
|
Sockets implementation for OS/2
|
|
|
|
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.
|
|
|
|
**********************************************************************}
|
|
|
|
{$MODE ObjFPC}
|
|
unit Sockets;
|
|
|
|
Interface
|
|
|
|
Uses
|
|
so32dll;
|
|
|
|
Const
|
|
AF_LOCAL = so32dll.AF_LOCAL;
|
|
AF_OS2 = so32dll.AF_OS2;
|
|
AF_IMPLINK = so32dll.AF_IMPLINK; // arpanet imp addresses
|
|
AF_PUP = so32dll.AF_PUP; // pup protocols: e.g. BSP
|
|
AF_CHAOS = so32dll.AF_CHAOS; // mit CHAOS protocols
|
|
AF_NS = so32dll.AF_NS; // XEROX NS protocols
|
|
AF_ISO = so32dll.AF_ISO; // ISO protocols
|
|
AF_OSI = so32dll.AF_OSI;
|
|
AF_ECMA = so32dll.AF_ECMA; // european computer manufacturers
|
|
AF_DATAKIT = so32dll.AF_DATAKIT; // datakit protocols
|
|
AF_CCITT = so32dll.AF_CCITT; // CCITT protocols, X.25 etc
|
|
AF_SNA = so32dll.AF_SNA; // IBM SNA
|
|
AF_DECnet = so32dll.AF_DECnet; // DECnet
|
|
AF_DLI = so32dll.AF_DLI; // DEC Direct data link interface
|
|
AF_LAT = so32dll.AF_LAT; // LAT
|
|
AF_HYLINK = so32dll.AF_HYLINK; // NSC Hyperchannel
|
|
AF_APPLETALK = so32dll.AF_APPLETALK; // Apple Talk
|
|
AF_NB = so32dll.AF_NB; // Netbios
|
|
AF_NETBIOS = so32dll.AF_NETBIOS; // Netbios
|
|
AF_LINK = so32dll.AF_LINK; // Link layer interface
|
|
pseudo_AF_XTP = so32dll.pseudo_AF_XTP; // eXpress Transfer Protocol (no AF)
|
|
AF_COIP = so32dll.AF_COIP; // connection-oriented IP, aka ST II
|
|
AF_CNT = so32dll.AF_CNT; // Computer Network Technology
|
|
pseudo_AF_RTIP = so32dll.pseudo_AF_RTIP; // Help Identify RTIP packets
|
|
AF_IPX = so32dll.AF_IPX; // Novell Internet Protocol
|
|
AF_SIP = so32dll.AF_SIP; // Simple Internet Protocol
|
|
AF_INET6 = so32dll.AF_INET6;
|
|
pseudo_AF_PIP = so32dll.pseudo_AF_PIP; // Help Identify PIP packets
|
|
AF_ROUTE = so32dll.AF_ROUTE; // Internal Routing Protocol
|
|
AF_FWIP = so32dll.AF_FWIP; // firewall support
|
|
AF_IPSEC = so32dll.AF_IPSEC; // IPSEC and encryption techniques
|
|
AF_DES = so32dll.AF_DES; // DES
|
|
AF_MD5 = so32dll.AF_MD5;
|
|
AF_CDMF = so32dll.AF_CDMF;
|
|
|
|
AF_MAX = so32dll.AF_MAX;
|
|
|
|
PF_LOCAL = so32dll.PF_LOCAL;
|
|
PF_OS2 = so32dll.PF_OS2;
|
|
PF_IMPLINK = so32dll.PF_IMPLINK;
|
|
PF_PUP = so32dll.PF_PUP;
|
|
PF_CHAOS = so32dll.PF_CHAOS;
|
|
PF_NS = so32dll.PF_NS;
|
|
PF_ISO = so32dll.PF_ISO;
|
|
PF_OSI = so32dll.PF_OSI;
|
|
PF_ECMA = so32dll.PF_ECMA;
|
|
PF_DATAKIT = so32dll.PF_DATAKIT;
|
|
PF_CCITT = so32dll.PF_CCITT;
|
|
PF_SNA = so32dll.PF_SNA;
|
|
PF_DECnet = so32dll.PF_DECnet;
|
|
PF_DLI = so32dll.PF_DLI;
|
|
PF_LAT = so32dll.PF_LAT;
|
|
PF_HYLINK = so32dll.PF_HYLINK;
|
|
PF_APPLETALK = so32dll.PF_APPLETALK;
|
|
PF_NETBIOS = so32dll.PF_NB;
|
|
PF_NB = so32dll.PF_NB;
|
|
PF_ROUTE = so32dll.PF_ROUTE;
|
|
PF_LINK = so32dll.PF_LINK;
|
|
PF_XTP = so32dll.PF_XTP; // really just proto family, no AF
|
|
PF_COIP = so32dll.PF_COIP;
|
|
PF_CNT = so32dll.PF_CNT;
|
|
PF_SIP = so32dll.PF_SIP;
|
|
PF_INET6 = so32dll.PF_INET6;
|
|
PF_IPX = so32dll.PF_IPX; // same format as AF_NS
|
|
PF_RTIP = so32dll.PF_RTIP; // same format as AF_INET
|
|
PF_PIP = so32dll.PF_PIP;
|
|
|
|
PF_MAX = so32dll.PF_MAX;
|
|
|
|
|
|
// OS/2 stack based on BSD stack
|
|
{$DEFINE BSD}
|
|
{$I socketsh.inc}
|
|
|
|
Implementation
|
|
|
|
{Include filerec and textrec structures}
|
|
{$I filerec.inc}
|
|
{$I textrec.inc}
|
|
|
|
{******************************************************************************
|
|
Basic Socket Functions
|
|
******************************************************************************}
|
|
|
|
Function socket(Domain,SocketType,Protocol:Longint):Longint;
|
|
begin
|
|
Socket:=so32dll.Socket(Domain,SocketType,ProtoCol);
|
|
if Socket<0 then
|
|
SocketError:=so32dll.sock_errno
|
|
else
|
|
SocketError:=0;
|
|
end;
|
|
|
|
Function Send(Sock:Longint;Const Buf;BufLen,Flags:Longint):Longint;
|
|
begin
|
|
Send:=so32dll.Send(Sock,Buf,BufLen,Flags);
|
|
if Send<0 then
|
|
SocketError:=so32dll.sock_errno
|
|
else
|
|
SocketError:=0;
|
|
end;
|
|
|
|
Function SendTo(Sock:Longint;Const Buf;BufLen,Flags:Longint;Var Addr; AddrLen : Longint):Longint;
|
|
begin
|
|
SendTo:=so32dll.SendTo(Sock,Buf,BufLen,Flags,so32dll.SockAddr(Addr),AddrLen);
|
|
if SendTo<0 then
|
|
SocketError:=so32dll.sock_errno
|
|
else
|
|
SocketError:=0;
|
|
end;
|
|
|
|
Function Recv(Sock:Longint;Var Buf;BufLen,Flags:Longint):Longint;
|
|
begin
|
|
Recv:=so32dll.Recv(Sock,Buf,BufLen,Flags);
|
|
if Recv<0 then
|
|
SocketError:=so32dll.sock_errno
|
|
else
|
|
SocketError:=0;
|
|
end;
|
|
|
|
|
|
Function RecvFrom(Sock : Longint; Var Buf; Buflen,Flags : Longint; Var Addr; AddrLen : Integer) : longint;
|
|
|
|
begin
|
|
RecvFrom:=so32dll.RecvFrom(Sock,Buf,BufLen,Flags,so32dll.SockAddr(Addr),AddrLen);
|
|
if RecvFrom<0 then
|
|
SocketError:=so32dll.sock_errno
|
|
else
|
|
SocketError:=0;
|
|
end;
|
|
|
|
Function Bind(Sock:Longint;Const Addr;AddrLen:Longint):Boolean;
|
|
var
|
|
l : longint;
|
|
begin
|
|
l:=so32dll.Bind(Sock,so32dll.sockaddr(Addr),AddrLen);
|
|
if l<0 then
|
|
begin
|
|
SocketError:=so32dll.sock_errno;
|
|
Bind:=false;
|
|
end
|
|
else
|
|
begin
|
|
SocketError:=0;
|
|
Bind:=true;
|
|
end;
|
|
end;
|
|
|
|
Function Listen(Sock,MaxConnect:Longint):Boolean;
|
|
var
|
|
l : longint;
|
|
begin
|
|
l:=so32dll.Listen(Sock,MaxConnect);
|
|
if l<0 then
|
|
begin
|
|
SocketError:=so32dll.sock_errno;
|
|
Listen:=false;
|
|
end
|
|
else
|
|
begin
|
|
SocketError:=0;
|
|
Listen:=true;
|
|
end;
|
|
end;
|
|
|
|
Function Accept(Sock:Longint;Var Addr;Var Addrlen:Longint):Longint;
|
|
begin
|
|
Accept:=so32dll.Accept(Sock,so32dll.SockAddr(Addr), AddrLen);
|
|
if Accept<0 then
|
|
SocketError:=so32dll.sock_errno
|
|
else
|
|
SocketError:=0;
|
|
end;
|
|
|
|
Function Connect(Sock:Longint;Const Addr;Addrlen:Longint):Boolean;
|
|
begin
|
|
Connect:=so32dll.Connect(Sock,so32dll.SockAddr(Addr),AddrLen)=0;
|
|
if not Connect then
|
|
SocketError:=so32dll.sock_errno
|
|
else
|
|
SocketError:=0;
|
|
end;
|
|
|
|
Function Shutdown(Sock:Longint;How:Longint):Longint;
|
|
begin
|
|
ShutDown:=so32dll.ShutDown(Sock,How);
|
|
if ShutDown<0 then
|
|
SocketError:=so32dll.sock_errno
|
|
else
|
|
SocketError:=0;
|
|
end;
|
|
|
|
Function GetSocketName(Sock:Longint;Var Addr;Var Addrlen:Longint):Longint;
|
|
begin
|
|
GetSocketName:=so32dll.GetSockName(Sock, so32dll.SockAddr(Addr),AddrLen);
|
|
if GetSocketName<0 then
|
|
SocketError:=so32dll.sock_errno
|
|
else
|
|
SocketError:=0;
|
|
end;
|
|
|
|
Function GetPeerName(Sock:Longint;Var Addr;Var Addrlen:Longint):Longint;
|
|
begin
|
|
GetPeerName:=so32dll.GetPeerName(Sock,so32dll.SockAddr(Addr),AddrLen);
|
|
if GetPeerName<0 then
|
|
SocketError:=so32dll.sock_errno
|
|
else
|
|
SocketError:=0;
|
|
end;
|
|
|
|
Function SetSocketOptions(Sock,Level,OptName:Longint;Const OptVal;optlen:longint):Longint;
|
|
begin
|
|
SetSocketOptions:=so32dll.SetSockOpt(Sock,Level,OptName,OptVal,OptLen);
|
|
if SetSocketOptions<0 then
|
|
SocketError:=so32dll.sock_errno
|
|
else
|
|
SocketError:=0;
|
|
end;
|
|
|
|
Function GetSocketOptions(Sock,Level,OptName:Longint;Var OptVal;Var optlen:longint):Longint;
|
|
begin
|
|
GetSocketOptions:=so32dll.GetSockOpt(Sock,Level,OptName,OptVal,OptLen);
|
|
if GetSocketOptions<0 then
|
|
SocketError:=so32dll.sock_errno
|
|
else
|
|
SocketError:=0;
|
|
end;
|
|
|
|
Function SocketPair(Domain,SocketType,Protocol:Longint;var Pair:TSockArray):Longint;
|
|
begin
|
|
|
|
{!!TODO!!
|
|
SocketPair:=so32dll.socketpair(Domain,SocketType,Protocol,Pair);}
|
|
//SocketCall(Socket_Sys_SocketPair,Domain,SocketType,Protocol,longint(@Pair),0,0);
|
|
end;
|
|
|
|
{ mimic the linux fdWrite/fdRead calls for the file/text socket wrapper }
|
|
function fdWrite(handle : longint;Const bufptr;size : dword) : dword;
|
|
begin
|
|
fdWrite := so32dll.send(handle, bufptr, size, 0);
|
|
if fdWrite = -1 then
|
|
begin
|
|
SocketError := so32dll.sock_errno;
|
|
fdWrite := 0;
|
|
end
|
|
else
|
|
SocketError := 0;
|
|
end;
|
|
|
|
function fdRead(handle : longint;var bufptr;size : dword) : dword;
|
|
var
|
|
d : dword;
|
|
begin
|
|
{!!TODO!!
|
|
if so32dll.ioctlsocket(handle,FIONREAD,@d) = -1 then
|
|
begin
|
|
SocketError:=so32dll.sock_errno;
|
|
fdRead:=0;
|
|
exit;
|
|
end;
|
|
}
|
|
if d>0 then
|
|
begin
|
|
if size>d then
|
|
size:=d;
|
|
fdRead := so32dll.recv(handle, bufptr, size, 0);
|
|
if fdRead = -1 then
|
|
begin
|
|
SocketError:= so32dll.sock_errno;
|
|
fdRead := 0;
|
|
end else
|
|
SocketError:=0;
|
|
end
|
|
else
|
|
SocketError:=0;
|
|
end;
|
|
|
|
{$i sockets.inc}
|
|
|
|
Begin
|
|
so32dll.sock_init;
|
|
End.
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.2 2004-07-17 10:13:09 hajny
|
|
+ missing CVS logs added
|
|
|
|
|
|
}
|