BlackBox/_OpenBSD_/Lin/Mod/Net.txt

   1 MODULE LinNet ["libc.so.90.0"];
   2
   3         (*
   4                 OpenBSD 6.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_LOCAL* = 1; (* local to host (pipes, portals) *)
  20                         AF_UNIX* = AF_LOCAL; (* backward compatibility *)
  21                         AF_INET* = 2; (* internetwork: UDP, TCP, etc. *)
  22                         AF_IMPLINK* = 3; (* arpanet imp addresses *)
  23                         AF_PUP* = 4; (* pup protocols: e.g. BSP *)
  24                         AF_CHAOS* = 5; (* mit CHAOS protocols *)
  25                         AF_NS* = 6; (* XEROX NS protocols *)
  26                         AF_ISO* = 7; (* ISO protocols *)
  27                         AF_ECMA* = 8; (* european computer manufacturers *)
  28                         AF_DATAKIT* = 9; (* datakit protocols *)
  29                         AF_CCITT* = 10; (* CCITT protocols, X.25 etc *)
  30                         AF_SNA* = 11; (* IBM SNA *)
  31                         AF_DECnet* = 12; (* DECnet *)
  32                         AF_DLI* = 13; (* DEC Direct data link interface *)
  33                         AF_LAT* = 14; (* LAT *)
  34                         AF_HYLINK* = 15; (* NSC Hyperchannel *)
  35                         AF_APPLETALK* = 16; (* Apple Talk *)
  36                         AF_ROUTE* = 17; (* Internal Routing Protocol *)
  37                         AF_LINK* = 18; (* Link layer interface *)
  38                         AF_COIP* = 20; (* connection-oriented IP, aka ST II *)
  39                         AF_CNT* = 21; (* Computer Network Technology *)
  40                         AF_IPX* = 23; (* Novell Internet Protocol *)
  41                         AF_INET6* = 24; (* IPv6 *)
  42                         AF_ISDN* = 26; (* Integrated Services Digital Network *)
  43                         AF_E164* = AF_ISDN; (* CCITT E.164 recommendation *)
  44                         AF_NATM* = 27; (* native ATM access *)
  45                         AF_ENCAP* = 28;
  46                         AF_SIP* = 29; (* Simple Internet Protocol *)
  47                         AF_KEY* = 30;
  48                         AF_BLUETOOTH* = 32; (* Bluetooth *)
  49                         AF_MPLS* = 33; (* MPLS *)
  50                         AF_MAX* = 36;
  51
  52                 (* socket types *)
  53                         SOCK_STREAM* = 1; (* stream socket *)
  54                         SOCK_DGRAM* = 2; (* datagram socket *)
  55                         SOCK_RAW* = 3; (* raw-protocol interface *)
  56                         SOCK_RDM* = 4; (* reliably-delivered message *)
  57                         SOCK_SEQPACKET* = 5; (* sequenced packet stream *)
  58
  59                 (* socket protocols *)
  60                         IPPROTO_IP* = 0; (* dummy for IP *)
  61                         IPPROTO_HOPOPTS* = IPPROTO_IP; (* Hop-by-hop option header *)
  62                         IPPROTO_ICMP* = 1; (* control message protocol *)
  63                         IPPROTO_IGMP* = 2; (* group mgmt protocol *)
  64                         IPPROTO_GGP* = 3; (* gateway^2 (deprecated) *)
  65                         IPPROTO_IPIP* = 4; (* IP inside IP *)
  66                         IPPROTO_IPV4* = IPPROTO_IPIP; (* IP inside IP *)
  67                         IPPROTO_TCP* = 6; (* tcp *)
  68                         IPPROTO_EGP* = 8; (* exterior gateway protocol *)
  69                         IPPROTO_PUP* = 12; (* pup *)
  70                         IPPROTO_UDP* = 17; (* user datagram protocol *)
  71                         IPPROTO_IDP* = 22; (* xns idp *)
  72                         IPPROTO_TP* = 29; (* tp-4 w/ class negotiation *)
  73                         IPPROTO_IPV6* = 41; (* IPv6 in IPv6 *)
  74                         IPPROTO_ROUTING* = 43; (* Routing header *)
  75                         IPPROTO_FRAGMENT* = 44; (* Fragmentation/reassembly header *)
  76                         IPPROTO_RSVP* = 46; (* resource reservation *)
  77                         IPPROTO_GRE* = 47; (* GRE encap, RFCs 1701/1702 *)
  78                         IPPROTO_ESP* = 50; (* Encap. Security Payload *)
  79                         IPPROTO_AH* = 51; (* Authentication header *)
  80                         IPPROTO_MOBILE* = 55; (* IP Mobility, RFC 2004 *)
  81                         IPPROTO_ICMPV6* = 58; (* ICMP for IPv6 *)
  82                         IPPROTO_NONE* = 59; (* No next header *)
  83                         IPPROTO_DSTOPTS* = 60; (* Destination options header *)
  84                         IPPROTO_EON* = 80; (* ISO cnlp *)
  85                         IPPROTO_ETHERIP* = 97; (* Ethernet in IPv4 *)
  86                         IPPROTO_ENCAP* = 98; (* encapsulation header *)
  87                         IPPROTO_PIM* = 103; (* Protocol indep. multicast *)
  88                         IPPROTO_IPCOMP* = 108; (* IP Payload Comp. Protocol *)
  89                         IPPROTO_CARP* = 112; (* CARP *)
  90                         IPPROTO_MPLS* = 137; (* unicast MPLS packet *)
  91                         IPPROTO_PFSYNC* = 240; (* PFSYNC *)
  92                         IPPROTO_RAW* = 255; (* raw IP packet *)
  93                         IPPROTO_MAX* = 256;
  94                         IPPROTO_DIVERT* = 258; (* Divert sockets *)
  95                         IPPROTO_DONE* = 257;
  96                         IPPROTO_DIVERT_RESP* = 01H; (* {0} *) (* divert response packets *)
  97                         IPPROTO_DIVERT_INIT* = 02H; (* {1} *) (* divert packets initial direction *)
  98
  99                 (* socket options *)
 100                         SO_DEBUG* = {0}; (* turn on debugging info recording *)
 101                         SO_ACCEPTCONN* = {1}; (* socket has had listen() *)
 102                         SO_REUSEADDR* = {2}; (* allow local address reuse *)
 103                         SO_KEEPALIVE* = {3}; (* keep connections alive *)
 104                         SO_DONTROUTE* = {4}; (* just use interface addresses *)
 105                         SO_BROADCAST* = {5}; (* permit sending of broadcast msgs *)
 106                         SO_USELOOPBACK* = {6}; (* bypass hardware when possible *)
 107                         SO_LINGER* = {7}; (* linger on close if data present *)
 108                         SO_OOBINLINE* = {8}; (* leave received OOB data in line *)
 109                         SO_REUSEPORT* = {9}; (* allow local address & port reuse *)
 110                         SO_TIMESTAMP* = {11}; (* timestamp received dgram traffic *)
 111                         SO_BINDANY* = {12}; (* allow bind to any address *)
 112                         SO_SNDBUF* = {0,12}; (* send buffer size *)
 113                         SO_RCVBUF* = {1,12}; (* receive buffer size *)
 114                         SO_SNDLOWAT* = {0,1,12}; (* send low-water mark *)
 115                         SO_RCVLOWAT* = {2,12}; (* receive low-water mark *)
 116                         SO_SNDTIMEO* = {0,2,12}; (* send timeout *)
 117                         SO_RCVTIMEO* = {1,2,12}; (* receive timeout *)
 118                         SO_ERROR* = {0..2,12}; (* get error status and clear *)
 119                         SO_TYPE* = {3,12}; (* get socket type *)
 120                         SO_NETPROC* = {5,12}; (* multiplex; network processing *)
 121                         SO_RTABLE* = {0,5,12}; (* routing table to be used *)
 122                         SO_PEERCRED* = {1,5,12}; (* get connect-time credentials *)
 123                         SO_SPLICE* = {0,1,5,12}; (* splice data to other socket *)
 124
 125                 SHUT_RD* = 0;
 126                 SHUT_WR* = 1;
 127                 SHUT_RDWR* = 2;
 128
 129                 SOL_SOCKET* = 0FFFFH; (* {0..15} *) (* options for socket level *)
 130
 131                 MSG_OOB* = {0}; (* process out-of-band data *)
 132                 MSG_PEEK* = {1}; (* peek at incoming message *)
 133                 MSG_DONTROUTE* = {2}; (* send without using routing tables *)
 134                 MSG_EOR* = {3}; (* data completes record *)
 135                 MSG_TRUNC* = {4}; (* data discarded before delivery *)
 136                 MSG_CTRUNC* = {5}; (* control data lost before delivery *)
 137                 MSG_WAITALL* = {6}; (* wait for full request or error *)
 138                 MSG_DONTWAIT* = {7}; (* this message should be nonblocking *)
 139                 MSG_BCAST* = {8}; (* this message rec'd as broadcast *)
 140                 MSG_MCAST* = {9}; (* this message rec'd as multicast *)
 141                 MSG_NOSIGNAL* = {10}; (* do not send SIGPIPE *)
 142                 MSG_CMSG_CLOEXEC* = {11}; (* set FD_CLOEXEC on received fds *)
 143
 144                 SOMAXCONN* = 128;
 145
 146                 (* addrinfo.ai_flags *)
 147                         AI_PASSIVE* = {0}; (* socket address is intended for bind() *)
 148                         AI_CANONNAME* = {1}; (* request for canonical name *)
 149                         AI_NUMERICHOST* = {2}; (* don't ever try hostname lookup *)
 150                         AI_EXT* = {3}; (* enable non-portable extensions *)
 151                         AI_NUMERICSERV* = {4}; (* don't ever try servname lookup *)
 152                         AI_FQDN* = {5}; (* return the FQDN that was resolved *)
 153                         AI_ADDRCONFIG* = {6}; (* return configured address families only *)
 154
 155                 (* getaddrinfo/getnameinfo/gai_strerror error codes *)
 156                         EAI_BADFLAGS* = -1; (* invalid value for ai_flags *)
 157                         EAI_NONAME* = -2; (* name or service is not known *)
 158                         EAI_AGAIN* = -3; (* temporary failure in name resolution *)
 159                         EAI_FAIL* = -4; (* non-recoverable failure in name resolution *)
 160                         EAI_NODATA* = -5; (* no address associated with name *)
 161                         EAI_FAMILY* = -6; (* ai_family not supported *)
 162                         EAI_SOCKTYPE* = -7; (* ai_socktype not supported *)
 163                         EAI_SERVICE* = -8; (* service not supported for ai_socktype *)
 164                         EAI_ADDRFAMILY* = -9; (* address family for name not supported *)
 165                         EAI_MEMORY* = -10; (* memory allocation failure *)
 166                         EAI_SYSTEM* = -11; (* system error (code indicated in errno) *)
 167                         EAI_BADHINTS* = -12; (* invalid value for hints *)
 168                         EAI_PROTOCOL* = -13; (* resolved protocol is unknown *)
 169                         EAI_OVERFLOW* = -14; (* argument buffer overflow *)
 170
 171                 (* OpenBSD 6.0 /usr/include/sys/select.h *)
 172                         FD_SETSIZE = 1024;
 173                         __NBBY = 8;
 174
 175         TYPE
 176                 u_int8_t = SHORTCHAR;
 177                 int8_t = SHORTCHAR;
 178                 uint16_t = SHORTINT;
 179                 (* 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 *)
 180                 PtrVoid* = INTEGER;
 181                 short* = SHORTINT;
 182                 int* = INTEGER;
 183                 intFlags* = SET;
 184                 size_t* = INTEGER;
 185                 ssize_t* = INTEGER;
 186                 time_t* = LONGINT;
 187                 suseconds_t* = INTEGER;
 188                 socklen_t* = INTEGER;
 189                 in_addr_t* = INTEGER;
 190                 in_port_t* = SHORTINT;
 191                 nfds_t* = INTEGER;
 192                 sa_family_t* = SHORTCHAR;
 193
 194                 PtrSTR* = POINTER [untagged] TO ARRAY [untagged] OF SHORTCHAR;
 195
 196                 SOCKET* = int;
 197
 198 (*
 199                 in_addr* = RECORD [untagged]
 200                         s_addr*: in_addr_t;
 201                 END;
 202 *)
 203                 in_addr* = RECORD [untagged]
 204                         S_un*: RECORD [union]
 205                                 S_un_b*: RECORD [untagged]
 206                                         s_b1*: SHORTCHAR;
 207                                         s_b2*: SHORTCHAR;
 208                                         s_b3*: SHORTCHAR;
 209                                         s_b4*: SHORTCHAR;
 210                                 END;
 211                                 S_un_w*: RECORD [untagged]
 212                                         s_w1*: SHORTINT;
 213                                         s_w2*: SHORTINT;
 214                                 END;
 215                                 S_addr*: in_addr_t;
 216                         END;
 217                 END;
 218
 219                 Ptrsockaddr* = POINTER [untagged] TO sockaddr;
 220                 sockaddr* = RECORD [untagged]
 221                         (* OpenBSD /usr/include/sys/socket.h *)
 222                                 sa_len*: SHORTCHAR; (* total length *)
 223                                 sa_family*: sa_family_t; (* address family *)
 224                                 sa_data*: ARRAY [untagged] 14 OF SHORTCHAR; (* actually longer; address value *)
 225                 END;
 226
 227                 Ptrsockaddr_storage = POINTER [untagged] TO sockaddr_storage;
 228                 sockaddr_storage* = RECORD [untagged]
 229                         (* OpenBSD 6.0 /usr/include/sys/socket.h *)
 230                                 ss_len*: SHORTCHAR; (* total length *)
 231                                 ss_family*: sa_family_t; (* address family *)
 232                                 __ss_pad1: ARRAY [untagged] 6 OF SHORTCHAR; (* align to quad *)
 233                                 __ss_pad2: LONGINT; (* force alignment for stupid compilers *)
 234                                 __ss_pad3: ARRAY [untagged] 240 OF SHORTCHAR; (* pad to a total of 256 bytes *)
 235                 END;
 236
 237                 Ptrsockaddr_in* = POINTER [untagged] TO sockaddr_in;
 238                 sockaddr_in* = RECORD [untagged]
 239                         (* OpenBSD /usr/include/netinet/in.h *)
 240                                 sin_len*: u_int8_t;
 241                                 sin_family*: sa_family_t;
 242                                 sin_port*: in_port_t;
 243                                 sin_addr*: in_addr;
 244                                 sin_zero*: ARRAY [untagged] 8 OF int8_t;
 245                 END;
 246
 247                 Ptraddrinfo* = POINTER [untagged] TO addrinfo;
 248                 addrinfo* = RECORD [untagged]
 249                         (* OpenBSD 6.0 /usr/include/netdb.h *)
 250                                 ai_flags*: intFlags; (* input flags *)
 251                                 ai_family*: int; (* protocol family for socket *)
 252                                 ai_socktype*: int; (* socket type *)
 253                                 ai_protocol*: int; (* protocol for socket *)
 254                                 ai_addrlen*: socklen_t; (* length of socket-address *)
 255                                 ai_addr*: Ptrsockaddr; (* socket-address for socket *)
 256                                 ai_canonname*: PtrSTR; (* canonical name for service location (iff req) *)
 257                                 ai_next*: Ptraddrinfo; (* pointer to next in list *)
 258                 END;
 259
 260                 timeval* = RECORD [untagged]
 261                         (* Linux, FreeBSD, OpenBSD *)
 262                                 tv_sec*: time_t; (* seconds *)
 263                                 tv_usec*: suseconds_t; (* and microseconds *)
 264                 END;
 265
 266                 pollfd* = RECORD [untagged]
 267                         (* Linux, FreeBSD, OpenBSD *)
 268                                 fd*: int;
 269                                 events*: short;
 270                                 revents*: short;
 271                 END;
 272
 273                 (* OpenBSD 6.0 /usr/include/sys/select.h *)
 274                         __fd_mask = SET;
 275                         fd_set* = ARRAY [untagged] (FD_SETSIZE + (SIZE(__fd_mask) * __NBBY - 1)) DIV (SIZE(__fd_mask) * __NBBY) OF __fd_mask;
 276
 277         (* POSIX.1 *)
 278                 PROCEDURE [ccall] socket* (domain: int; type: int; protocol: int): SOCKET;
 279                 PROCEDURE [ccall] accept* (s: SOCKET; VAR addr: sockaddr; VAR addrlen: socklen_t): SOCKET;
 280                 PROCEDURE [ccall] bind* (s: SOCKET; VAR name: sockaddr; namelen: socklen_t): int;
 281                 PROCEDURE [ccall] connect* (s: SOCKET; VAR name: sockaddr; namelen: socklen_t): int;
 282                 PROCEDURE [ccall] getsockname* (s: SOCKET; VAR name: sockaddr; VAR namelen: socklen_t): int;
 283                 PROCEDURE [ccall] listen* (s: SOCKET; backlog: int): int;
 284                 PROCEDURE [ccall] recv* (s: SOCKET; buf: PtrVoid; len: size_t; flags: intFlags): ssize_t;
 285                 PROCEDURE [ccall] send* (s: SOCKET; msg: PtrVoid; len: size_t; flags: intFlags): ssize_t;
 286                 PROCEDURE [ccall] shutdown* (s: SOCKET; how: int): int;
 287                 PROCEDURE [ccall] getsockopt* (s: SOCKET; level: int; optname: intFlags; optval: PtrVoid; VAR [nil] optlen: socklen_t): int;
 288                 PROCEDURE [ccall] setsockopt* (s: SOCKET; level: int; optname: intFlags; optval: PtrVoid; optlen: socklen_t): int;
 289
 290                 PROCEDURE [ccall] inet_addr* (cp: PtrSTR): in_addr_t;
 291                 PROCEDURE [ccall] htons* (host16: uint16_t): uint16_t;
 292
 293                 PROCEDURE [ccall] select* (nfds: INTEGER; VAR [nil] readfds: fd_set; VAR [nil] writefds: fd_set; VAR [nil] exceptfds: fd_set; VAR timeout: timeval): int;
 294
 295                 PROCEDURE [ccall] poll* (VAR fds: ARRAY [untagged] OF pollfd; nfds: nfds_t; timeout: int): int;
 296
 297 (*
 298         PROCEDURE FD_ZERO (VAR set: Net.fd_set);
 299                 VAR i: INTEGER;
 300         BEGIN
 301                 i := LEN(set); REPEAT DEC(i); set[i] := {} UNTIL i = 0
 302         END FD_ZERO;
 303
 304         PROCEDURE FD_SET (fd: Net.SOCKET; VAR set: Net.fd_set);
 305         BEGIN
 306                 INCL(set[fd DIV 32], fd MOD 32)
 307         END FD_SET;
 308 *)
 309
 310         (* POSIX.1g *)
 311                 PROCEDURE [ccall] getaddrinfo* (hostname: PtrSTR; servname: PtrSTR; VAR [nil] hints: addrinfo; VAR res: Ptraddrinfo): int;
 312                 PROCEDURE [ccall] freeaddrinfo* (ai: Ptraddrinfo);
 313
 314                 PROCEDURE [ccall] gai_strerror* (ecode: int): PtrSTR;
 315
 316 END LinNet.