BlackBox/_FreeBSD_/Lin/Mod/Net.txt

   1 MODULE LinNet ["libc.so.7"];
   2
   3         (*
   4                 FreeBSD 11.0
   5                 i386
   6         *)
   7
   8         CONST
   9                 NULL* = 0H;
  10
  11                 SOCKET_ERROR* = -1;
  12                 INVALID_SOCKET* = -1;
  13
  14                 INADDR_NONE* = -1;
  15                 INADDR_ANY* = 0;
  16
  17                 (* socket domains *)
  18                         AF_UNSPEC* = 0; (* unspecified *)
  19                         AF_UNIX* = 1; (* standardized name for AF_LOCAL *)
  20                         AF_INET* = 2; (* internetwork: UDP, TCP, etc. *)
  21                         AF_INET6* = 28; (* IPv6 *)
  22
  23                 (* socket types *)
  24                         SOCK_STREAM* = 1; (* stream socket *)
  25                         SOCK_DGRAM* = 2; (* datagram socket *)
  26                         SOCK_RAW* = 3; (* raw-protocol interface *)
  27                         SOCK_SEQPACKET* = 5; (* sequenced packet stream *)
  28
  29                 (* socket protocols *)
  30                         IPPROTO_IP* = 0; (* dummy for IP *)
  31                         IPPROTO_ICMP* = 1; (* control message protocol *)
  32                         IPPROTO_TCP* = 6; (* tcp *)
  33                         IPPROTO_UDP* = 17; (* user datagram protocol *)
  34
  35                 (* socket options *)
  36                         SO_DEBUG* = {0}; (* turn on debugging info recording *)
  37                         SO_ACCEPTCONN* = {1}; (* socket has had listen() *)
  38                         SO_REUSEADDR* = {2}; (* allow local address reuse *)
  39                         SO_KEEPALIVE* = {3}; (* keep connections alive *)
  40                         SO_DONTROUTE* = {4}; (* just use interface addresses *)
  41                         SO_BROADCAST* = {5}; (* permit sending of broadcast msgs *)
  42                         SO_LINGER* = {7}; (* linger on close if data present *)
  43                         SO_OOBINLINE* = {8}; (* leave received OOB data in line *)
  44                         SO_NO_OFFLOAD* = {14}; (* socket cannot be offloaded *)
  45                         SO_NO_DDP* = {15}; (* disable direct data placement *)
  46                         SO_SNDBUF* = {0,12}; (* send buffer size *)
  47                         SO_RCVBUF* = {1,12}; (* receive buffer size *)
  48                         SO_SNDLOWAT* = {0,1,12}; (* send low-water mark *)
  49                         SO_RCVLOWAT* = {2,12}; (* receive low-water mark *)
  50                         SO_SNDTIMEO* = {0,2,12}; (* send timeout *)
  51                         SO_RCVTIMEO* = {1,2,12}; (* receive timeout *)
  52                         SO_ERROR* = {0..2,12}; (* get error status and clear *)
  53                         SO_TYPE* = {3,12}; (* get socket type *)
  54
  55                 SHUT_RD* = 0; (* shut down the reading side *)
  56                 SHUT_WR* = 1; (* shut down the writing side *)
  57                 SHUT_RDWR* = 2; (* shut down both sides *)
  58
  59                 SOL_SOCKET* = 0FFFFH; (* {0..15} *) (* options for socket level *)
  60
  61                 MSG_OOB* = {0}; (* process out-of-band data *)
  62                 MSG_PEEK* = {1}; (* peek at incoming message *)
  63                 MSG_DONTROUTE* = {2}; (* send without using routing tables *)
  64                 MSG_EOR* = {3}; (* data completes record *)
  65                 MSG_TRUNC* = {4}; (* data discarded before delivery *)
  66                 MSG_CTRUNC* = {5}; (* control data lost before delivery *)
  67                 MSG_WAITALL* = {6}; (* wait for full request or error *)
  68
  69                 SOMAXCONN* = 128;
  70
  71                 (* addrinfo.ai_flags *)
  72                         AI_PASSIVE* = {0}; (* get address to use bind() *)
  73                         AI_CANONNAME* = {1}; (* fill ai_canonname *)
  74                         AI_NUMERICHOST* = {2}; (* prevent host name resolution *)
  75                         AI_NUMERICSERV* = {3}; (* prevent service name resolution *)
  76                         AI_ALL* = {8}; (* IPv6 and IPv4-mapped (with AI_V4MAPPED) *)
  77                         AI_V4MAPPED_CFG* = {9}; (* accept IPv4-mapped if kernel supports *)
  78                         AI_ADDRCONFIG* = {10}; (* only if any address is assigned *)
  79                         AI_V4MAPPED* = {11}; (* accept IPv4-mapped IPv6 address *)
  80
  81                 (* getaddrinfo/getnameinfo/gai_strerror error codes *)
  82                         EAI_AGAIN* = 2; (* temporary failure in name resolution *)
  83                         EAI_BADFLAGS* = 3; (* invalid value for ai_flags *)
  84                         EAI_FAIL* = 4; (* non-recoverable failure in name resolution *)
  85                         EAI_FAMILY* = 5; (* ai_family not supported *)
  86                         EAI_MEMORY* = 6; (* memory allocation failure *)
  87                         EAI_NONAME* = 8; (* hostname nor servname provided, or not known *)
  88                         EAI_SERVICE* = 9; (* servname not supported for ai_socktype *)
  89                         EAI_SOCKTYPE* = 10; (* ai_socktype not supported *)
  90                         EAI_SYSTEM* = 11; (* system error returned in errno *)
  91                         EAI_BADHINTS* = 12; (* invalid value for hints *)
  92                         EAI_PROTOCOL* = 13; (* resolved protocol is unknown *)
  93                         EAI_OVERFLOW* = 14; (* argument buffer overflow *)
  94                         EAI_MAX* = 15;
  95
  96                 (* FreeBSD 11.0 /usr/include/sys/select.h *)
  97                         FD_SETSIZE = 1024;
  98                         _NFDBITS = 8 * 4;
  99
 100         TYPE
 101                 u_int8_t = SHORTCHAR;
 102                 int8_t = SHORTCHAR;
 103                 uint16_t = SHORTINT;
 104                 (* PtrVoid, int, intFlags, short, socklen_t, size_t, ssize_t, in_addr_t, in_port_t, time_t, suseconds_t, nfds_t, sa_family_t *)
 105                 PtrVoid* = INTEGER;
 106                 short* = SHORTINT;
 107                 int* = INTEGER;
 108                 intFlags* = SET;
 109                 size_t* = INTEGER;
 110                 ssize_t* = INTEGER;
 111                 time_t* = INTEGER;
 112                 suseconds_t* = INTEGER;
 113                 socklen_t* = INTEGER;
 114                 in_addr_t* = INTEGER;
 115                 in_port_t* = SHORTINT;
 116                 nfds_t* = INTEGER;
 117                 sa_family_t* = SHORTCHAR;
 118
 119                 PtrSTR* = POINTER [untagged] TO ARRAY [untagged] OF SHORTCHAR;
 120
 121                 SOCKET* = int;
 122
 123 (*
 124                 in_addr* = RECORD [untagged]
 125                         s_addr*: in_addr_t;
 126                 END;
 127 *)
 128                 in_addr* = RECORD [untagged]
 129                         S_un*: RECORD [union]
 130                                 S_un_b*: RECORD [untagged]
 131                                         s_b1*: SHORTCHAR;
 132                                         s_b2*: SHORTCHAR;
 133                                         s_b3*: SHORTCHAR;
 134                                         s_b4*: SHORTCHAR;
 135                                 END;
 136                                 S_un_w*: RECORD [untagged]
 137                                         s_w1*: SHORTINT;
 138                                         s_w2*: SHORTINT;
 139                                 END;
 140                                 S_addr*: in_addr_t;
 141                         END;
 142                 END;
 143
 144                 Ptrsockaddr* = POINTER [untagged] TO sockaddr;
 145                 sockaddr* = RECORD [untagged]
 146                         (* FreeBSD 11.0 /usr/include/sys/socket.h *)
 147                                 sa_len*: SHORTCHAR; (* total length *)
 148                                 sa_family*: sa_family_t; (* address family *)
 149                                 sa_data*: ARRAY [untagged] 14 OF SHORTCHAR; (* actually longer; address value *)
 150                 END;
 151
 152                 Ptrsockaddr_storage = POINTER [untagged] TO sockaddr_storage;
 153                 sockaddr_storage* = RECORD [untagged]
 154                         (* FreeBSD 11.0 /usr/include/sys/_sockaddr_storage.h *)
 155                                 ss_len*: SHORTCHAR; (* address length *)
 156                                 ss_family*: sa_family_t; (* address family *)
 157                                 __ss_pad1: ARRAY [untagged] 8 - 2 OF SHORTCHAR;
 158                                 __ss_align: LONGINT; (* force desired struct alignment *)
 159                                 __ss_pad2: ARRAY [untagged] 128 - 1 - 1 - (8 - 2) - 8 OF SHORTCHAR;
 160                 END;
 161
 162                 Ptrsockaddr_in* = POINTER [untagged] TO sockaddr_in;
 163                 sockaddr_in* = RECORD [untagged]
 164                         (* FreeBSD 11.0 /usr/include/netinet/in.h *)
 165                                 sin_len*: SHORTCHAR;
 166                                 sin_family*: sa_family_t;
 167                                 sin_port*: in_port_t;
 168                                 sin_addr*: in_addr;
 169                                 sin_zero*: ARRAY [untagged] 8 OF SHORTCHAR;
 170                 END;
 171
 172                 Ptraddrinfo* = POINTER [untagged] TO addrinfo;
 173                 addrinfo* = RECORD [untagged]
 174                         (* FreeBSD 11.0 /usr/include/netdb.h *)
 175                                 ai_flags*: intFlags;
 176                                 ai_family*: int;
 177                                 ai_socktype*: int;
 178                                 ai_protocol*: int;
 179                                 ai_addrlen*: socklen_t;
 180                                 ai_canonname*: PtrSTR;
 181                                 ai_addr*: Ptrsockaddr;
 182                                 ai_next*: Ptraddrinfo;
 183                 END;
 184
 185                 timeval* = RECORD [untagged]
 186                         (* Linux, FreeBSD, OpenBSD *)
 187                                 tv_sec*: time_t; (* seconds *)
 188                                 tv_usec*: suseconds_t; (* and microseconds *)
 189                 END;
 190
 191                 pollfd* = RECORD [untagged]
 192                         (* Linux, FreeBSD, OpenBSD *)
 193                                 fd*: int;
 194                                 events*: short;
 195                                 revents*: short;
 196                 END;
 197
 198                 (* FreeBSD 11.0 /usr/include/sys/select.h *)
 199                         __fd_mask = SET;
 200                         fd_set* = ARRAY [untagged] (FD_SETSIZE + (_NFDBITS - 1)) DIV _NFDBITS OF __fd_mask;
 201
 202         (* POSIX.1 *)
 203                 PROCEDURE [ccall] socket* (domain: int; type: int; protocol: int): SOCKET;
 204                 PROCEDURE [ccall] accept* (s: SOCKET; VAR addr: sockaddr; VAR addrlen: socklen_t): SOCKET;
 205                 PROCEDURE [ccall] bind* (s: SOCKET; VAR name: sockaddr; namelen: socklen_t): int;
 206                 PROCEDURE [ccall] connect* (s: SOCKET; VAR name: sockaddr; namelen: socklen_t): int;
 207                 PROCEDURE [ccall] getsockname* (s: SOCKET; VAR name: sockaddr; VAR namelen: socklen_t): int;
 208                 PROCEDURE [ccall] listen* (s: SOCKET; backlog: int): int;
 209                 PROCEDURE [ccall] recv* (s: SOCKET; buf: PtrVoid; len: size_t; flags: intFlags): ssize_t;
 210                 PROCEDURE [ccall] send* (s: SOCKET; msg: PtrVoid; len: size_t; flags: intFlags): ssize_t;
 211                 PROCEDURE [ccall] shutdown* (s: SOCKET; how: int): int;
 212                 PROCEDURE [ccall] getsockopt* (s: SOCKET; level: int; optname: intFlags; optval: PtrVoid; VAR [nil] optlen: socklen_t): int;
 213                 PROCEDURE [ccall] setsockopt* (s: SOCKET; level: int; optname: intFlags; optval: PtrVoid; optlen: socklen_t): int;
 214
 215                 PROCEDURE [ccall] inet_addr* (cp: PtrSTR): in_addr_t;
 216                 PROCEDURE [ccall] htons* (host16: uint16_t): uint16_t;
 217
 218                 PROCEDURE [ccall] select* (nfds: INTEGER; VAR [nil] readfds: fd_set; VAR [nil] writefds: fd_set; VAR [nil] exceptfds: fd_set; VAR timeout: timeval): int;
 219
 220                 PROCEDURE [ccall] poll* (VAR fds: ARRAY [untagged] OF pollfd; nfds: nfds_t; timeout: int): int;
 221
 222 (*
 223         PROCEDURE FD_ZERO (VAR set: Net.fd_set);
 224                 VAR i: INTEGER;
 225         BEGIN
 226                 i := LEN(set); REPEAT DEC(i); set[i] := {} UNTIL i = 0
 227         END FD_ZERO;
 228
 229         PROCEDURE FD_SET (fd: Net.SOCKET; VAR set: Net.fd_set);
 230         BEGIN
 231                 INCL(set[fd DIV 32], fd MOD 32)
 232         END FD_SET;
 233 *)
 234
 235         (* POSIX.1g *)
 236                 PROCEDURE [ccall] getaddrinfo* (hostname: PtrSTR; servname: PtrSTR; VAR [nil] hints: addrinfo; VAR res: Ptraddrinfo): int;
 237                 PROCEDURE [ccall] freeaddrinfo* (ai: Ptraddrinfo);
 238
 239                 PROCEDURE [ccall] gai_strerror* (ecode: int): PtrSTR;
 240
 241 END LinNet.