BlackBox/_Linux_/Lin/Mod/Net.txt

   1 MODULE LinNet ["libc.so.6"];
   2
   3         (*
   4                 GNU/Linux
   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                         PF_UNSPEC* = 0; (* Unspecified. *)
  19                         PF_LOCAL* = 1; (* Local to host (pipes and file-domain). *)
  20                         PF_UNIX* = PF_LOCAL; (* POSIX name for PF_LOCAL. *)
  21                         PF_FILE* = PF_LOCAL; (* Another non-standard name for PF_LOCAL. *)
  22                         PF_INET* = 2; (* IP protocol family. *)
  23                         PF_AX25* = 3; (* Amateur Radio AX.25. *)
  24                         PF_IPX* = 4; (* Novell Internet Protocol. *)
  25                         PF_APPLETALK* = 5; (* Appletalk DDP. *)
  26                         PF_NETROM* = 6; (* Amateur radio NetROM. *)
  27                         PF_BRIDGE* = 7; (* Multiprotocol bridge. *)
  28                         PF_ATMPVC* = 8; (* ATM PVCs. *)
  29                         PF_X25* = 9; (* Reserved for X.25 project. *)
  30                         PF_INET6* = 10; (* IP version 6. *)
  31                         PF_ROSE* = 11; (* Amateur Radio X.25 PLP. *)
  32                         PF_DECnet* = 12; (* Reserved for DECnet project. *)
  33                         PF_NETBEUI* = 13; (* Reserved for 802.2LLC project. *)
  34                         PF_SECURITY* = 14; (* Security callback pseudo AF. *)
  35                         PF_KEY* = 15; (* PF_KEY key management API. *)
  36                         PF_NETLINK* = 16;
  37                         PF_ROUTE* = PF_NETLINK; (* Alias to emulate 4.4BSD. *)
  38                         PF_PACKET* = 17; (* Packet family. *)
  39                         PF_ASH* = 18; (* Ash. *)
  40                         PF_ECONET* = 19; (* Acorn Econet. *)
  41                         PF_ATMSVC* = 20; (* ATM SVCs. *)
  42                         PF_RDS* = 21; (* RDS sockets. *)
  43                         PF_SNA* = 22; (* Linux SNA Project *)
  44                         PF_IRDA* = 23; (* IRDA sockets. *)
  45                         PF_PPPOX* = 24; (* PPPoX sockets. *)
  46                         PF_WANPIPE* = 25; (* Wanpipe API sockets. *)
  47                         PF_LLC* = 26; (* Linux LLC. *)
  48                         PF_IB* = 27; (* Native InfiniBand address. *)
  49                         PF_MPLS* = 28; (* MPLS. *)
  50                         PF_CAN* = 29; (* Controller Area Network. *)
  51                         PF_TIPC* = 30; (* TIPC sockets. *)
  52                         PF_BLUETOOTH* = 31; (* Bluetooth sockets. *)
  53                         PF_IUCV* = 32; (* IUCV sockets. *)
  54                         PF_RXRPC* = 33; (* RxRPC sockets. *)
  55                         PF_ISDN* = 34; (* mISDN sockets. *)
  56                         PF_PHONET* = 35; (* Phonet sockets. *)
  57                         PF_IEEE802154* = 36; (* IEEE 802.15.4 sockets. *)
  58                         PF_CAIF* = 37; (* CAIF sockets. *)
  59                         PF_ALG* = 38; (* Algorithm sockets. *)
  60                         PF_NFC* = 39; (* NFC sockets. *)
  61                         PF_VSOCK* = 40; (* vSockets. *)
  62                         PF_KCM* = 41; (* Kernel Connection Multiplexor. *)
  63                         PF_QIPCRTR* = 42; (* Qualcomm IPC Router. *)
  64                         PF_SMC* = 43; (* SMC sockets. *)
  65                         PF_MAX* = 44; (* For now.. *)
  66
  67                 (* socket types *)
  68                         (* /usr/include/i386-linux-gnu/bits/socket_type.h *)
  69                                 SOCK_STREAM* = 1;
  70                                 SOCK_DGRAM* = 2;
  71                                 SOCK_RAW* = 3;
  72                                 SOCK_RDM* = 4;
  73                                 SOCK_SEQPACKET* = 5;
  74                                 SOCK_DCCP* = 6;
  75                                 SOCK_PACKET* = 10;
  76
  77                 (* socket protocols *)
  78                         IPPROTO_IP = 0; (* Dummy protocol for TCP. *)
  79                         IPPROTO_HOPOPTS* = 0; (* IPv6 Hop-by-Hop options. *)
  80                         IPPROTO_ICMP* = 1; (* Internet Control Message Protocol. *)
  81                         IPPROTO_IGMP* = 2; (* Internet Group Management Protocol. *)
  82                         IPPROTO_IPIP* = 4; (* IPIP tunnels (older KA9Q tunnels use 94). *)
  83                         IPPROTO_TCP* = 6; (* Transmission Control Protocol. *)
  84                         IPPROTO_EGP* = 8; (* Exterior Gateway Protocol. *)
  85                         IPPROTO_PUP* = 12; (* PUP protocol. *)
  86                         IPPROTO_UDP* = 17; (* User Datagram Protocol. *)
  87                         IPPROTO_IDP* = 22; (* XNS IDP protocol. *)
  88                         IPPROTO_TP* = 29; (* SO Transport Protocol Class 4. *)
  89                         IPPROTO_DCCP* = 33; (* Datagram Congestion Control Protocol. *)
  90                         IPPROTO_IPV6* = 41; (* IPv6 header. *)
  91                         IPPROTO_ROUTING* = 43; (* IPv6 routing header. *)
  92                         IPPROTO_FRAGMENT* = 44; (* IPv6 fragmentation header. *)
  93                         IPPROTO_RSVP* = 46; (* Reservation Protocol. *)
  94                         IPPROTO_GRE* = 47; (* General Routing Encapsulation. *)
  95                         IPPROTO_ESP* = 50; (* encapsulating security payload. *)
  96                         IPPROTO_AH* = 51; (* authentication header. *)
  97                         IPPROTO_ICMPV6* = 58; (* ICMPv6. *)
  98                         IPPROTO_NONE* = 59; (* IPv6 no next header. *)
  99                         IPPROTO_DSTOPTS* = 60; (* IPv6 destination options. *)
 100                         IPPROTO_MTP* = 92; (* Multicast Transport Protocol. *)
 101                         IPPROTO_ENCAP* = 98; (* Encapsulation Header. *)
 102                         IPPROTO_PIM* = 103; (* Protocol Independent Multicast. *)
 103                         IPPROTO_COMP* = 108; (* Compression Header Protocol. *)
 104                         IPPROTO_SCTP* = 132; (* Stream Control Transmission Protocol. *)
 105                         IPPROTO_UDPLITE* = 136; (* UDP-Lite protocol. *)
 106                         IPPROTO_RAW* = 255; (* Raw IP packets. *)
 107
 108                 (* socket options *)
 109                         SO_DEBUG* = {0};
 110                         SO_REUSEADDR* = {1};
 111                         SO_TYPE* = {0,1};
 112                         SO_ERROR* = {2};
 113                         SO_DONTROUTE* = {0,2};
 114                         SO_BROADCAST* = {1,2};
 115                         SO_SNDBUF* = {0..2};
 116                         SO_RCVBUF* = {3};
 117                         SO_SNDBUFFORCE* = {5};
 118                         SO_RCVBUFFORCE* = {0,5};
 119                         SO_KEEPALIVE* = {0,3};
 120                         SO_OOBINLINE* = {1,3};
 121                         SO_NO_CHECK* = {0,1,3};
 122                         SO_PRIORITY* = {2,3};
 123                         SO_LINGER* = {0,2,3};
 124                         SO_BSDCOMPAT* = {1..3};
 125                         SO_REUSEPORT* = {0..3};
 126                         SO_SECURITY_AUTHENTICATION* = {1,2,4};
 127                         SO_SECURITY_ENCRYPTION_TRANSPORT* = {0..2,4};
 128                         SO_SECURITY_ENCRYPTION_NETWORK* = {3,4};
 129                         SO_BINDTODEVICE* = {0,3,4};
 130                         SO_ATTACH_FILTER* = {1,3,4};
 131                         SO_DETACH_FILTER* = {0,1,3,4};
 132                         SO_PEERNAME* = {2..4};
 133                         SO_TIMESTAMP* = {0,2..4};
 134                         SO_ACCEPTCONN* = {1..4};
 135                         SO_PEERSEC* = {0..4};
 136                         SO_PASSSEC* = {1,5};
 137                         SO_TIMESTAMPNS* = {0,1,5};
 138                         SO_MARK* = {2,5};
 139                         SO_TIMESTAMPING* = {0,2,5};
 140                         SO_PROTOCOL* = {1,2,5};
 141                         SO_DOMAIN* = {0..2,5};
 142                         SO_RXQ_OVFL* = {3,5};
 143                         SO_WIFI_STATUS* = {0,3,5};
 144                         SO_PEEK_OFF* = {1,3,5};
 145                         SO_NOFCS* = {0,1,3,5};
 146                         SO_LOCK_FILTER* = {2,3,5};
 147                         SO_SELECT_ERR_QUEUE* = {0,2,3,5};
 148                         SO_BUSY_POLL* = {1..3,5};
 149                         SO_MAX_PACING_RATE* = {0..3,5};
 150                         SO_BPF_EXTENSIONS* = {4,5};
 151                         SO_INCOMING_CPU* = {0,4,5};
 152                         SO_ATTACH_BPF* = {1,4,5};
 153                         SO_ATTACH_REUSEPORT_CBPF* = {0,1,4,5};
 154                         SO_ATTACH_REUSEPORT_EBPF* = {2,4,5};
 155                         SO_CNX_ADVICE* = {0,2,4,5};
 156                         SO_MEMINFO* = {0..2,4,5};
 157                         SO_INCOMING_NAPI_ID* = {3..5};
 158                         SO_COOKIE* = {0,3..5};
 159                         SO_PEERGROUPS* = {0,1,3..5};
 160                         SO_ZEROCOPY* = {2..5};
 161
 162                 (* /usr/include/i386-linux-gnu/sys/socket.h *)
 163                         SHUT_RD* = 0;
 164                         SHUT_WR* = 1;
 165                         SHUT_RDWR* = 2;
 166
 167                 SOL_SOCKET* = 1;
 168
 169                 (* /usr/include/i386-linux-gnu/bits/socket.h *)
 170                         MSG_OOB* = {0};
 171                         MSG_PEEK* = {1};
 172                         MSG_DONTROUTE* = {2};
 173                         MSG_CTRUNC* = {3};
 174                         MSG_PROXY* = {4};
 175                         MSG_TRUNC* = {5};
 176                         MSG_DONTWAIT* = {6};
 177                         MSG_EOR* = {7};
 178                         MSG_WAITALL* = {8};
 179                         MSG_FIN* = {9};
 180                         MSG_SYN* = {10};
 181                         MSG_CONFIRM* = {11};
 182                         MSG_RST* = {12};
 183                         MSG_ERRQUEUE* = {13};
 184                         MSG_NOSIGNAL* = {14};
 185                         MSG_MORE* = {15};
 186                         MSG_WAITFORONE* = {16};
 187
 188                 SOMAXCONN* = 128;
 189
 190                 (* addrinfo.ai_flags *)
 191                         AI_PASSIVE* = {0}; (* Socket address is intended for `bind'. *)
 192                         AI_CANONNAME* = {1}; (* Request for canonical name. *)
 193                         AI_NUMERICHOST* = {2}; (* Don't use name resolution. *)
 194                         AI_V4MAPPED* = {3}; (* IPv4 mapped addresses are acceptable. *)
 195                         AI_ALL* = {4}; (* Return IPv4 mapped and IPv6 addresses. *)
 196                         AI_CANONIDN* = {7}; (* Translate canonical name from IDN format. *)
 197                         AI_NUMERICSERV* = {10}; (* Don't use name resolution. *)
 198
 199                 (* getaddrinfo/getnameinfo/gai_strerror error codes *)
 200                         EAI_BADFLAGS* = -1; (* Invalid value for `ai_flags' field. *)
 201                         EAI_NONAME* = -2; (* NAME or SERVICE is unknown. *)
 202                         EAI_AGAIN* = -3; (* Temporary failure in name resolution. *)
 203                         EAI_FAIL* = -4; (* Non-recoverable failure in name res. *)
 204                         EAI_FAMILY* = -6; (* `ai_family' not supported. *)
 205                         EAI_SOCKTYPE* = -7; (* `ai_socktype' not supported. *)
 206                         EAI_SERVICE* = -8; (* SERVICE not supported for `ai_socktype'. *)
 207                         EAI_MEMORY* = -10; (* Memory allocation failure. *)
 208                         EAI_SYSTEM* = -11; (* System error returned in `errno'. *)
 209                         EAI_OVERFLOW* = -12; (* Argument buffer overflow. *)
 210                         EAI_NODATA* = -5; (* No address associated with NAME. *)
 211                         EAI_ADDRFAMILY* = -9; (* Address family for NAME not supported. *)
 212                         EAI_INPROGRESS* = -100; (* Processing request in progress. *)
 213                         EAI_CANCELED* = -101; (* Request canceled. *)
 214                         EAI_NOTCANCELED* = -102; (* Request not canceled. *)
 215                         EAI_ALLDONE* = -103; (* All requests done. *)
 216                         EAI_INTR* = -104; (* Interrupted by a signal. *)
 217                         EAI_IDN_ENCODE* = -105; (* IDN encoding failed. *)
 218
 219                 (* /usr/include/i386-linux-gnu/bits/typesizes.h *)
 220                         __FD_SETSIZE = 1024;
 221
 222         TYPE
 223                 u_int8_t = SHORTCHAR;
 224                 int8_t = SHORTCHAR;
 225                 uint16_t = SHORTINT;
 226                 (* 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 *)
 227                 PtrVoid* = INTEGER;
 228                 short* = SHORTINT;
 229                 int* = INTEGER;
 230                 intFlags* = SET;
 231                 size_t* = INTEGER;
 232                 ssize_t* = INTEGER;
 233                 time_t* = INTEGER;
 234                 suseconds_t* = INTEGER;
 235                 socklen_t* = INTEGER;
 236                 in_addr_t* = INTEGER;
 237                 in_port_t* = SHORTINT;
 238                 nfds_t* = INTEGER;
 239                 sa_family_t* = SHORTINT;
 240
 241                 PtrSTR* = POINTER [untagged] TO ARRAY [untagged] OF SHORTCHAR;
 242
 243                 SOCKET* = int;
 244
 245 (*
 246                 in_addr* = RECORD [untagged]
 247                         s_addr*: in_addr_t;
 248                 END;
 249 *)
 250                 in_addr* = RECORD [untagged]
 251                         S_un*: RECORD [union]
 252                                 S_un_b*: RECORD [untagged]
 253                                         s_b1*: SHORTCHAR;
 254                                         s_b2*: SHORTCHAR;
 255                                         s_b3*: SHORTCHAR;
 256                                         s_b4*: SHORTCHAR;
 257                                 END;
 258                                 S_un_w*: RECORD [untagged]
 259                                         s_w1*: SHORTINT;
 260                                         s_w2*: SHORTINT;
 261                                 END;
 262                                 S_addr*: in_addr_t;
 263                         END;
 264                 END;
 265
 266                 Ptrsockaddr* = POINTER [untagged] TO sockaddr;
 267                 sockaddr* = RECORD [untagged]
 268                         (* /usr/include/i386-linux-gnu/bits/socket.h *)
 269                                 sa_family: sa_family_t;
 270                                 sa_data: ARRAY [untagged] 14 OF SHORTCHAR;
 271                 END;
 272
 273                 Ptrsockaddr_storage = POINTER [untagged] TO sockaddr_storage;
 274                 sockaddr_storage* = RECORD [untagged]
 275                         (* /usr/include/i386-linux-gnu/bits/socket.h *)
 276                                 sa_family: sa_family_t;
 277                                 __ss_align: INTEGER;
 278                                 __ss_padding: ARRAY [untagged] 128 - 2 * 4 OF SHORTCHAR;
 279                 END;
 280
 281                 Ptrsockaddr_in* = POINTER [untagged] TO sockaddr_in;
 282                 sockaddr_in* = RECORD [untagged]
 283                         (* /usr/include/linux/in.h *)
 284                                 sin_family*: sa_family_t; (* address family *)
 285                                 sin_port*: SHORTINT; (* port number *)
 286                                 sin_addr*: in_addr; (* internet address *)
 287                                 __pad: ARRAY [untagged] 8 OF SHORTCHAR;
 288                 END;
 289
 290                 Ptraddrinfo* = POINTER [untagged] TO addrinfo;
 291                 addrinfo* = RECORD [untagged]
 292                         (* /usr/include/netdb.h *)
 293                                 ai_flags*: intFlags; (* input flags *)
 294                                 ai_family*: int; (* protocol family for socket *)
 295                                 ai_socktype*: int; (* socket type *)
 296                                 ai_protocol*: int; (* protocol for socket *)
 297                                 ai_addrlen*: socklen_t; (* length of socket-address *)
 298                                 ai_addr*: Ptrsockaddr; (* socket-address for socket *)
 299                                 ai_canonname*: PtrSTR; (* canonical name for service location (iff req) *)
 300                                 ai_next*: Ptraddrinfo; (* pointer to next in list *)
 301                 END;
 302
 303                 timeval* = RECORD [untagged]
 304                         (* Linux, FreeBSD, OpenBSD *)
 305                                 tv_sec*: time_t; (* seconds *)
 306                                 tv_usec*: suseconds_t; (* and microseconds *)
 307                 END;
 308
 309                 pollfd* = RECORD [untagged]
 310                         (* Linux, FreeBSD, OpenBSD *)
 311                                 fd*: int;
 312                                 events*: short;
 313                                 revents*: short;
 314                 END;
 315
 316                 (* /usr/include/i386-linux-gnu/sys/select.h *)
 317                         __fd_mask = SET;
 318                         fd_set* = ARRAY [untagged] __FD_SETSIZE DIV (SIZE(__fd_mask) * 8) OF __fd_mask;
 319
 320         (* POSIX.1 *)
 321                 PROCEDURE [ccall] socket* (domain: int; type: int; protocol: int): SOCKET;
 322                 PROCEDURE [ccall] accept* (s: SOCKET; VAR addr: sockaddr; VAR addrlen: socklen_t): SOCKET;
 323                 PROCEDURE [ccall] bind* (s: SOCKET; VAR name: sockaddr; namelen: socklen_t): int;
 324                 PROCEDURE [ccall] connect* (s: SOCKET; VAR name: sockaddr; namelen: socklen_t): int;
 325                 PROCEDURE [ccall] getsockname* (s: SOCKET; VAR name: sockaddr; VAR namelen: socklen_t): int;
 326                 PROCEDURE [ccall] listen* (s: SOCKET; backlog: int): int;
 327                 PROCEDURE [ccall] recv* (s: SOCKET; buf: PtrVoid; len: size_t; flags: intFlags): ssize_t;
 328                 PROCEDURE [ccall] recvfrom* (s: SOCKET; buf: PtrVoid; len: size_t; flags: intFlags; VAR from: sockaddr; VAR fromlen: socklen_t): ssize_t;
 329                 PROCEDURE [ccall] send* (s: SOCKET; msg: PtrVoid; len: size_t; flags: intFlags): ssize_t;
 330                 PROCEDURE [ccall] sendto* (s: SOCKET; msg: PtrVoid; len: size_t; flags: intFlags; VAR to: sockaddr; tolen: socklen_t): ssize_t;
 331                 PROCEDURE [ccall] shutdown* (s: SOCKET; how: int): int;
 332                 PROCEDURE [ccall] getsockopt* (s: SOCKET; level: int; optname: intFlags; optval: PtrVoid; VAR [nil] optlen: socklen_t): int;
 333                 PROCEDURE [ccall] setsockopt* (s: SOCKET; level: int; optname: intFlags; optval: PtrVoid; optlen: socklen_t): int;
 334
 335                 PROCEDURE [ccall] inet_addr* (cp: PtrSTR): in_addr_t;
 336                 PROCEDURE [ccall] htons* (host16: uint16_t): uint16_t;
 337
 338                 PROCEDURE [ccall] select* (nfds: INTEGER; VAR [nil] readfds: fd_set; VAR [nil] writefds: fd_set; VAR [nil] exceptfds: fd_set; VAR timeout: timeval): int;
 339
 340                 PROCEDURE [ccall] poll* (VAR fds: ARRAY [untagged] OF pollfd; nfds: nfds_t; timeout: int): int;
 341
 342 (*
 343         PROCEDURE FD_ZERO (VAR set: Net.fd_set);
 344                 VAR i: INTEGER;
 345         BEGIN
 346                 i := LEN(set); REPEAT DEC(i); set[i] := {} UNTIL i = 0
 347         END FD_ZERO;
 348
 349         PROCEDURE FD_SET (fd: Net.SOCKET; VAR set: Net.fd_set);
 350         BEGIN
 351                 INCL(set[fd DIV 32], fd MOD 32)
 352         END FD_SET;
 353 *)
 354
 355         (* POSIX.1g *)
 356                 PROCEDURE [ccall] getaddrinfo* (hostname: PtrSTR; servname: PtrSTR; VAR [nil] hints: addrinfo; VAR res: Ptraddrinfo): int;
 357                 PROCEDURE [ccall] freeaddrinfo* (ai: Ptraddrinfo);
 358
 359                 PROCEDURE [ccall] gai_strerror* (ecode: int): PtrSTR;
 360
 361 END LinNet.