initial checkin
This commit is contained in:
oscarl-2
167
bepascal/source/bepascal/pas/src/be/net/_socket.pp
Normal file
167
bepascal/source/bepascal/pas/src/be/net/_socket.pp
Normal file
@@ -0,0 +1,167 @@
|
||||
unit _socket;
|
||||
// BSD socket-like interface
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SupportDefs;
|
||||
|
||||
{$PACKRECORDS C}
|
||||
|
||||
// This one belongs to posix/time.h
|
||||
// We need to find a better place for it.
|
||||
type
|
||||
timeval = record
|
||||
tv_sec,
|
||||
tv_usec : Longint;
|
||||
end;
|
||||
Ptimeval = ^timeval;
|
||||
|
||||
const
|
||||
kBeNETLibName = 'net';
|
||||
|
||||
const
|
||||
AF_INET = 1;
|
||||
|
||||
INADDR_ANY = $00000000;
|
||||
INADDR_BROADCAST = $ffffffff;
|
||||
INADDR_LOOPBACK = $7f000001; // in host order
|
||||
|
||||
SOL_SOCKET = 1;
|
||||
|
||||
SO_DEBUG = 1;
|
||||
SO_REUSEADDR = 2;
|
||||
SO_NONBLOCK = 3;
|
||||
SO_REUSEPORT = 4;
|
||||
|
||||
MSG_OOB = $1;
|
||||
|
||||
SOCK_DGRAM = 1;
|
||||
SOCK_STREAM = 2;
|
||||
|
||||
IPPROTO_UDP = 1;
|
||||
IPPROTO_TCP = 2;
|
||||
IPPROTO_ICMP = 3;
|
||||
|
||||
// Be extension
|
||||
B_UDP_MAX_SIZE = (65536 - 1024);
|
||||
|
||||
type
|
||||
sockaddr = record
|
||||
sa_family : Word;
|
||||
sa_data : array[0..9] of Byte;
|
||||
end;
|
||||
Psockaddr = ^sockaddr;
|
||||
|
||||
in_addr = record
|
||||
s_addr : Longword;
|
||||
end;
|
||||
|
||||
sockaddr_in = record
|
||||
sin_family,
|
||||
sin_port : Word;
|
||||
sin_addr : in_addr;
|
||||
sin_zero : array[0..3] of Byte;
|
||||
end;
|
||||
|
||||
// You can define your own FDSETSIZE if you want more bits
|
||||
const
|
||||
FD_SETSIZE = 256;
|
||||
|
||||
// Compatibily only: use FD_SETSIZE instead
|
||||
FDSETSIZE = FD_SETSIZE;
|
||||
|
||||
const
|
||||
NFDBITS = 32;
|
||||
|
||||
type
|
||||
fd_set = record
|
||||
mask : array [0..(FDSETSIZE div NFDBITS) - 1] of Longword;
|
||||
end;
|
||||
Pfd_set = ^fd_set;
|
||||
|
||||
//--- these were macros
|
||||
// need to change FD_SET name because of naming clash with the record.
|
||||
function _FDMSKNO(fd : Longint) : Longint;
|
||||
function _FDBITNO(fd : Longint) : Longint;
|
||||
procedure FD_ZERO(setp : fd_set);
|
||||
procedure FD_SET_(fd : Longint; var setp : fd_set);
|
||||
procedure FD_CLR(fd : Longint; var setp : fd_set);
|
||||
function FD_ISSET(fd : Longint; setp : fd_set) : Longint;
|
||||
//---
|
||||
|
||||
|
||||
function socket(family, _type, proto : Longint) : Longint;
|
||||
cdecl; external kBeNETLibName name 'socket';
|
||||
function bind(fd : Longint; const addr : Psockaddr; size : Longint) : Longint;
|
||||
cdecl; external kBeNETLibName name 'bind';
|
||||
function getsockname(fd : Longint; addr : Psockaddr; size : Longint) : Longint;
|
||||
cdecl; external kBeNETLibName name 'getsockname';
|
||||
function getpeername(fd : Longint; addr : Psockaddr; size : Longint) : Longint;
|
||||
cdecl; external kBeNETLibName name 'getpeername';
|
||||
function recvfrom(fd : Longint; buf : Pointer; size : size_t; flags : Longint;
|
||||
from : Psockaddr; var fromlen : Longint) : ssize_t;
|
||||
cdecl; external kBeNETLibName name 'recvfrom';
|
||||
function sendto(fd : Longint; const buf : Pointer; size : size_t; flags : Longint;
|
||||
const _to : Psockaddr; tolen : Longint) : ssize_t;
|
||||
cdecl; external kBeNETLibName name 'sendto';
|
||||
|
||||
function send(fd : Longint; const buf : Pointer; size : size_t; flags : Longint) : ssize_t;
|
||||
cdecl; external kBeNETLibName name 'send';
|
||||
function recv(fd : Longint; buf : Pointer; size : size_t; flags : Longint) : ssize_t;
|
||||
cdecl; external kBeNETLibName name 'recv';
|
||||
|
||||
function connect(fd : Longint; const addr : Psockaddr; size : Longint) : Longint;
|
||||
cdecl; external kBeNETLibName name 'connect';
|
||||
function accept(fd : Longint; addr : Psockaddr; var size : Longint) : Longint;
|
||||
cdecl; external kBeNETLibName name 'accept';
|
||||
function listen(fd, backlog : Longint) : Longint;
|
||||
cdecl; external kBeNETLibName name 'listen';
|
||||
function closesocket(fd : Longint) : Longint;
|
||||
cdecl; external kBeNETLibName name 'closesocket';
|
||||
|
||||
// doesn't work yet (from Be's header file)
|
||||
function shutdown(fd, how : Longint) : Longint;
|
||||
cdecl; external kBeNETLibName name 'shutdown';
|
||||
function setsockopt(sd, prot, opt : Longint; const data : Pointer;
|
||||
datasize : Longword) : Longint;
|
||||
cdecl; external kBeNETLibName name 'setsockopt';
|
||||
|
||||
function select(nbits : Longint; rbits, wbits, ebits : Pfd_set; timeout : Ptimeval)
|
||||
: Longint; cdecl; external kBeNETLibName name 'select';
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
function _FDMSKNO(fd : Longint) : Longint;
|
||||
begin
|
||||
Result := fd div NFDBITS;
|
||||
end;
|
||||
|
||||
function _FDBITNO(fd : Longint) : Longint;
|
||||
begin
|
||||
Result := fd mod NFDBITS;
|
||||
end;
|
||||
|
||||
procedure FD_ZERO(setp : fd_set);
|
||||
begin
|
||||
FillChar(setp.mask, 0, SizeOf(setp.mask));
|
||||
end;
|
||||
|
||||
procedure FD_SET_(fd : Longint; var setp : fd_set);
|
||||
begin
|
||||
setp.mask[_FDMSKNO(fd)] := setp.mask[_FDMSKNO(fd)] or (1 shl (_FDBITNO(fd)));
|
||||
end;
|
||||
|
||||
procedure FD_CLR(fd : Longint; var setp : fd_set);
|
||||
begin
|
||||
setp.mask[_FDMSKNO(fd)] := setp.mask[_FDMSKNO(fd)] and not(1 shl (_FDBITNO(fd)));
|
||||
end;
|
||||
|
||||
function FD_ISSET(fd : Longint; setp : fd_set) : Longint;
|
||||
begin
|
||||
Result := setp.mask[_FDMSKNO(fd)] and (1 shl (_FDBITNO(fd)));
|
||||
end;
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user