|
|
@@ -1,24 +1,20 @@
|
|
|
MODULE LinNet ["libc.so.89.2"];
|
|
|
|
|
|
(*
|
|
|
- A. V. Shiryaev, 2012.11, 2013.08, 2015.09, 2016.11
|
|
|
-
|
|
|
OpenBSD 6.0
|
|
|
- 32-bit
|
|
|
+ i386
|
|
|
*)
|
|
|
|
|
|
- IMPORT Libc := LinLibc;
|
|
|
-
|
|
|
CONST
|
|
|
- INVALID_SOCKET* = -1;
|
|
|
+ NULL* = 0H;
|
|
|
+
|
|
|
SOCKET_ERROR* = -1;
|
|
|
+ INVALID_SOCKET* = -1;
|
|
|
|
|
|
- (* /usr/include/sys/socket.h *)
|
|
|
- SOCK_STREAM* = 1; (* stream socket *)
|
|
|
- SOCK_DGRAM* = 2; (* datagram socket *)
|
|
|
- SOCK_RAW* = 3; (* raw-protocol interface *)
|
|
|
- SOCK_RDM* = 4; (* reliably-delivered message *)
|
|
|
- SOCK_SEQPACKET* = 5; (* sequenced packet stream *)
|
|
|
+ INADDR_NONE* = -1;
|
|
|
+ INADDR_ANY* = 0;
|
|
|
+
|
|
|
+ (* socket domains *)
|
|
|
AF_UNSPEC* = 0; (* unspecified *)
|
|
|
AF_LOCAL* = 1; (* local to host (pipes, portals) *)
|
|
|
AF_UNIX* = AF_LOCAL; (* backward compatibility *)
|
|
|
@@ -52,51 +48,15 @@ MODULE LinNet ["libc.so.89.2"];
|
|
|
AF_BLUETOOTH* = 32; (* Bluetooth *)
|
|
|
AF_MPLS* = 33; (* MPLS *)
|
|
|
AF_MAX* = 36;
|
|
|
- SHUT_RD* = 0;
|
|
|
- SHUT_WR* = 1;
|
|
|
- SHUT_RDWR* = 2;
|
|
|
- SOMAXCONN* = 128;
|
|
|
- SO_DEBUG* = {0}; (* turn on debugging info recording *)
|
|
|
- SO_ACCEPTCONN* = {1}; (* socket has had listen() *)
|
|
|
- SO_REUSEADDR* = {2}; (* allow local address reuse *)
|
|
|
- SO_KEEPALIVE* = {3}; (* keep connections alive *)
|
|
|
- SO_DONTROUTE* = {4}; (* just use interface addresses *)
|
|
|
- SO_BROADCAST* = {5}; (* permit sending of broadcast msgs *)
|
|
|
- SO_USELOOPBACK* = {6}; (* bypass hardware when possible *)
|
|
|
- SO_LINGER* = {7}; (* linger on close if data present *)
|
|
|
- SO_OOBINLINE* = {8}; (* leave received OOB data in line *)
|
|
|
- SO_REUSEPORT* = {9}; (* allow local address & port reuse *)
|
|
|
- SO_TIMESTAMP* = {11}; (* timestamp received dgram traffic *)
|
|
|
- SO_BINDANY* = {12}; (* allow bind to any address *)
|
|
|
- SO_SNDBUF* = {0,12}; (* send buffer size *)
|
|
|
- SO_RCVBUF* = {1,12}; (* receive buffer size *)
|
|
|
- SO_SNDLOWAT* = {0,1,12}; (* send low-water mark *)
|
|
|
- SO_RCVLOWAT* = {2,12}; (* receive low-water mark *)
|
|
|
- SO_SNDTIMEO* = {0,2,12}; (* send timeout *)
|
|
|
- SO_RCVTIMEO* = {1,2,12}; (* receive timeout *)
|
|
|
- SO_ERROR* = {0..2,12}; (* get error status and clear *)
|
|
|
- SO_TYPE* = {3,12}; (* get socket type *)
|
|
|
- SO_NETPROC* = {5,12}; (* multiplex; network processing *)
|
|
|
- SO_RTABLE* = {0,5,12}; (* routing table to be used *)
|
|
|
- SO_PEERCRED* = {1,5,12}; (* get connect-time credentials *)
|
|
|
- SO_SPLICE* = {0,1,5,12}; (* splice data to other socket *)
|
|
|
- SOL_SOCKET* = 0FFFFH; (* {0..15} *) (* options for socket level *)
|
|
|
- MSG_OOB* = {0}; (* process out-of-band data *)
|
|
|
- MSG_PEEK* = {1}; (* peek at incoming message *)
|
|
|
- MSG_DONTROUTE* = {2}; (* send without using routing tables *)
|
|
|
- MSG_EOR* = {3}; (* data completes record *)
|
|
|
- MSG_TRUNC* = {4}; (* data discarded before delivery *)
|
|
|
- MSG_CTRUNC* = {5}; (* control data lost before delivery *)
|
|
|
- MSG_WAITALL* = {6}; (* wait for full request or error *)
|
|
|
- MSG_DONTWAIT* = {7}; (* this message should be nonblocking *)
|
|
|
- MSG_BCAST* = {8}; (* this message rec'd as broadcast *)
|
|
|
- MSG_MCAST* = {9}; (* this message rec'd as multicast *)
|
|
|
- MSG_NOSIGNAL* = {10}; (* do not send SIGPIPE *)
|
|
|
- MSG_CMSG_CLOEXEC* = {11}; (* set FD_CLOEXEC on received fds *)
|
|
|
-
|
|
|
- (* /usr/include/netinet/in.h *)
|
|
|
- INADDR_NONE* = -1;
|
|
|
- INADDR_ANY* = 0;
|
|
|
+
|
|
|
+ (* socket types *)
|
|
|
+ SOCK_STREAM* = 1; (* stream socket *)
|
|
|
+ SOCK_DGRAM* = 2; (* datagram socket *)
|
|
|
+ SOCK_RAW* = 3; (* raw-protocol interface *)
|
|
|
+ SOCK_RDM* = 4; (* reliably-delivered message *)
|
|
|
+ SOCK_SEQPACKET* = 5; (* sequenced packet stream *)
|
|
|
+
|
|
|
+ (* socket protocols *)
|
|
|
IPPROTO_IP* = 0; (* dummy for IP *)
|
|
|
IPPROTO_HOPOPTS* = IPPROTO_IP; (* Hop-by-hop option header *)
|
|
|
IPPROTO_ICMP* = 1; (* control message protocol *)
|
|
|
@@ -136,10 +96,52 @@ MODULE LinNet ["libc.so.89.2"];
|
|
|
IPPROTO_DIVERT_RESP* = 01H; (* {0} *) (* divert response packets *)
|
|
|
IPPROTO_DIVERT_INIT* = 02H; (* {1} *) (* divert packets initial direction *)
|
|
|
|
|
|
- (* /usr/include/sys/param.h *)
|
|
|
- MAXHOSTNAMELEN* = 256; (* max hostname length w/ NUL *)
|
|
|
+ (* socket options *)
|
|
|
+ SO_DEBUG* = {0}; (* turn on debugging info recording *)
|
|
|
+ SO_ACCEPTCONN* = {1}; (* socket has had listen() *)
|
|
|
+ SO_REUSEADDR* = {2}; (* allow local address reuse *)
|
|
|
+ SO_KEEPALIVE* = {3}; (* keep connections alive *)
|
|
|
+ SO_DONTROUTE* = {4}; (* just use interface addresses *)
|
|
|
+ SO_BROADCAST* = {5}; (* permit sending of broadcast msgs *)
|
|
|
+ SO_USELOOPBACK* = {6}; (* bypass hardware when possible *)
|
|
|
+ SO_LINGER* = {7}; (* linger on close if data present *)
|
|
|
+ SO_OOBINLINE* = {8}; (* leave received OOB data in line *)
|
|
|
+ SO_REUSEPORT* = {9}; (* allow local address & port reuse *)
|
|
|
+ SO_TIMESTAMP* = {11}; (* timestamp received dgram traffic *)
|
|
|
+ SO_BINDANY* = {12}; (* allow bind to any address *)
|
|
|
+ SO_SNDBUF* = {0,12}; (* send buffer size *)
|
|
|
+ SO_RCVBUF* = {1,12}; (* receive buffer size *)
|
|
|
+ SO_SNDLOWAT* = {0,1,12}; (* send low-water mark *)
|
|
|
+ SO_RCVLOWAT* = {2,12}; (* receive low-water mark *)
|
|
|
+ SO_SNDTIMEO* = {0,2,12}; (* send timeout *)
|
|
|
+ SO_RCVTIMEO* = {1,2,12}; (* receive timeout *)
|
|
|
+ SO_ERROR* = {0..2,12}; (* get error status and clear *)
|
|
|
+ SO_TYPE* = {3,12}; (* get socket type *)
|
|
|
+ SO_NETPROC* = {5,12}; (* multiplex; network processing *)
|
|
|
+ SO_RTABLE* = {0,5,12}; (* routing table to be used *)
|
|
|
+ SO_PEERCRED* = {1,5,12}; (* get connect-time credentials *)
|
|
|
+ SO_SPLICE* = {0,1,5,12}; (* splice data to other socket *)
|
|
|
+
|
|
|
+ SHUT_RD* = 0;
|
|
|
+ SHUT_WR* = 1;
|
|
|
+ SHUT_RDWR* = 2;
|
|
|
+
|
|
|
+ SOL_SOCKET* = 0FFFFH; (* {0..15} *) (* options for socket level *)
|
|
|
|
|
|
- (* /usr/include/netdb.h *)
|
|
|
+ MSG_OOB* = {0}; (* process out-of-band data *)
|
|
|
+ MSG_PEEK* = {1}; (* peek at incoming message *)
|
|
|
+ MSG_DONTROUTE* = {2}; (* send without using routing tables *)
|
|
|
+ MSG_EOR* = {3}; (* data completes record *)
|
|
|
+ MSG_TRUNC* = {4}; (* data discarded before delivery *)
|
|
|
+ MSG_CTRUNC* = {5}; (* control data lost before delivery *)
|
|
|
+ MSG_WAITALL* = {6}; (* wait for full request or error *)
|
|
|
+ MSG_DONTWAIT* = {7}; (* this message should be nonblocking *)
|
|
|
+ MSG_BCAST* = {8}; (* this message rec'd as broadcast *)
|
|
|
+ MSG_MCAST* = {9}; (* this message rec'd as multicast *)
|
|
|
+ MSG_NOSIGNAL* = {10}; (* do not send SIGPIPE *)
|
|
|
+ MSG_CMSG_CLOEXEC* = {11}; (* set FD_CLOEXEC on received fds *)
|
|
|
+
|
|
|
+ (* addrinfo.ai_flags *)
|
|
|
AI_PASSIVE* = {0}; (* socket address is intended for bind() *)
|
|
|
AI_CANONNAME* = {1}; (* request for canonical name *)
|
|
|
AI_NUMERICHOST* = {2}; (* don't ever try hostname lookup *)
|
|
|
@@ -147,6 +149,8 @@ MODULE LinNet ["libc.so.89.2"];
|
|
|
AI_NUMERICSERV* = {4}; (* don't ever try servname lookup *)
|
|
|
AI_FQDN* = {5}; (* return the FQDN that was resolved *)
|
|
|
AI_ADDRCONFIG* = {6}; (* return configured address families only *)
|
|
|
+
|
|
|
+ (* getaddrinfo/getnameinfo/gai_strerror error codes *)
|
|
|
EAI_BADFLAGS* = -1; (* invalid value for ai_flags *)
|
|
|
EAI_NONAME* = -2; (* name or service is not known *)
|
|
|
EAI_AGAIN* = -3; (* temporary failure in name resolution *)
|
|
|
@@ -162,134 +166,131 @@ MODULE LinNet ["libc.so.89.2"];
|
|
|
EAI_PROTOCOL* = -13; (* resolved protocol is unknown *)
|
|
|
EAI_OVERFLOW* = -14; (* argument buffer overflow *)
|
|
|
|
|
|
- (* /usr/include/sys/select.h *)
|
|
|
+ (* OpenBSD 6.0 /usr/include/sys/select.h *)
|
|
|
FD_SETSIZE = 1024;
|
|
|
__NBBY = 8;
|
|
|
|
|
|
TYPE
|
|
|
+ u_int8_t = SHORTCHAR;
|
|
|
+ int8_t = SHORTCHAR;
|
|
|
+ uint16_t = SHORTINT;
|
|
|
+ (* 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 *)
|
|
|
PtrVoid* = INTEGER;
|
|
|
+ short* = SHORTINT;
|
|
|
int* = INTEGER;
|
|
|
+ intFlags* = SET;
|
|
|
+ size_t* = INTEGER;
|
|
|
+ ssize_t* = INTEGER;
|
|
|
+ time_t* = LONGINT;
|
|
|
+ suseconds_t* = INTEGER;
|
|
|
socklen_t* = INTEGER;
|
|
|
- sa_family_t* = SHORTCHAR;
|
|
|
in_addr_t* = INTEGER;
|
|
|
in_port_t* = SHORTINT;
|
|
|
- time_t* = LONGINT;
|
|
|
- suseconds_t* = INTEGER;
|
|
|
- u_int8_t* = SHORTCHAR;
|
|
|
- int8_t* = SHORTCHAR;
|
|
|
- size_t* = INTEGER;
|
|
|
- ssize_t* = INTEGER;
|
|
|
+ nfds_t* = INTEGER;
|
|
|
+ sa_family_t* = SHORTCHAR;
|
|
|
+
|
|
|
+ PtrSTR* = POINTER [untagged] TO ARRAY [untagged] OF SHORTCHAR;
|
|
|
|
|
|
SOCKET* = int;
|
|
|
|
|
|
- (* /usr/include/sys/socket.h *)
|
|
|
- Ptrsockaddr* = POINTER [untagged] TO sockaddr;
|
|
|
- sockaddr* = RECORD [untagged]
|
|
|
+(*
|
|
|
+ in_addr* = RECORD [untagged]
|
|
|
+ s_addr*: in_addr_t;
|
|
|
+ END;
|
|
|
+*)
|
|
|
+ in_addr* = RECORD [untagged]
|
|
|
+ S_un*: RECORD [union]
|
|
|
+ S_un_b*: RECORD [untagged]
|
|
|
+ s_b1*: SHORTCHAR;
|
|
|
+ s_b2*: SHORTCHAR;
|
|
|
+ s_b3*: SHORTCHAR;
|
|
|
+ s_b4*: SHORTCHAR;
|
|
|
+ END;
|
|
|
+ S_un_w*: RECORD [untagged]
|
|
|
+ s_w1*: SHORTINT;
|
|
|
+ s_w2*: SHORTINT;
|
|
|
+ END;
|
|
|
+ S_addr*: in_addr_t;
|
|
|
+ END;
|
|
|
+ END;
|
|
|
+
|
|
|
+ Ptrsockaddr* = POINTER [untagged] TO sockaddr;
|
|
|
+ sockaddr* = RECORD [untagged]
|
|
|
+ (* OpenBSD /usr/include/sys/socket.h *)
|
|
|
sa_len*: SHORTCHAR; (* total length *)
|
|
|
sa_family*: sa_family_t; (* address family *)
|
|
|
sa_data*: ARRAY [untagged] 14 OF SHORTCHAR; (* actually longer; address value *)
|
|
|
- END;
|
|
|
- sockaddr_storage* = RECORD [untagged]
|
|
|
+ END;
|
|
|
+
|
|
|
+ Ptrsockaddr_storage = POINTER [untagged] TO sockaddr_storage;
|
|
|
+ sockaddr_storage* = RECORD [untagged]
|
|
|
+ (* OpenBSD 6.0 /usr/include/sys/socket.h *)
|
|
|
ss_len*: SHORTCHAR; (* total length *)
|
|
|
ss_family*: sa_family_t; (* address family *)
|
|
|
__ss_pad1: ARRAY [untagged] 6 OF SHORTCHAR; (* align to quad *)
|
|
|
__ss_pad2: LONGINT; (* force alignment for stupid compilers *)
|
|
|
__ss_pad3: ARRAY [untagged] 240 OF SHORTCHAR; (* pad to a total of 256 bytes *)
|
|
|
- END;
|
|
|
-
|
|
|
- (* /usr/include/netinet/in.h *)
|
|
|
-(*
|
|
|
- in_addr* = RECORD [untagged]
|
|
|
- s_addr*: in_addr_t;
|
|
|
- END;
|
|
|
-*)
|
|
|
- in_addr* = RECORD [untagged]
|
|
|
- S_un*: RECORD [union]
|
|
|
- S_un_b*: RECORD [untagged]
|
|
|
- s_b1*: SHORTCHAR;
|
|
|
- s_b2*: SHORTCHAR;
|
|
|
- s_b3*: SHORTCHAR;
|
|
|
- s_b4*: SHORTCHAR;
|
|
|
- END;
|
|
|
- S_un_w*: RECORD [untagged]
|
|
|
- s_w1*: SHORTINT;
|
|
|
- s_w2*: SHORTINT;
|
|
|
- END;
|
|
|
- S_addr*: in_addr_t;
|
|
|
- END;
|
|
|
- END;
|
|
|
+ END;
|
|
|
|
|
|
- Ptrsockaddr_in* = POINTER [untagged] TO sockaddr_in;
|
|
|
- sockaddr_in* = RECORD [untagged]
|
|
|
+ Ptrsockaddr_in* = POINTER [untagged] TO sockaddr_in;
|
|
|
+ sockaddr_in* = RECORD [untagged]
|
|
|
+ (* OpenBSD /usr/include/netinet/in.h *)
|
|
|
sin_len*: u_int8_t;
|
|
|
sin_family*: sa_family_t;
|
|
|
sin_port*: in_port_t;
|
|
|
sin_addr*: in_addr;
|
|
|
sin_zero*: ARRAY [untagged] 8 OF int8_t;
|
|
|
- END;
|
|
|
+ END;
|
|
|
|
|
|
- (* /usr/include/netdb.h *)
|
|
|
-(* deprecated
|
|
|
- Ptrhostent* = POINTER [untagged] TO hostent;
|
|
|
- hostent* = RECORD [untagged]
|
|
|
- h_name*: Libc.PtrSTR; (* official name of host *)
|
|
|
- h_aliases*: POINTER [untagged] TO ARRAY [untagged] OF Libc.PtrSTR; (* alias list *)
|
|
|
- h_addrtype*: INTEGER; (* host address type *)
|
|
|
- h_length*: INTEGER; (* length of address *)
|
|
|
- h_addr_list*: POINTER [untagged] TO ARRAY [untagged] OF POINTER [untagged] TO ARRAY [untagged] OF in_addr; (* list of addresses from name server *)
|
|
|
- END;
|
|
|
-*)
|
|
|
-
|
|
|
- Ptraddrinfo* = POINTER [untagged] TO addrinfo;
|
|
|
- addrinfo* = RECORD [untagged]
|
|
|
- ai_flags*: SET; (* input flags *)
|
|
|
+ Ptraddrinfo* = POINTER [untagged] TO addrinfo;
|
|
|
+ addrinfo* = RECORD [untagged]
|
|
|
+ (* Linux, FreeBSD, OpenBSD *)
|
|
|
+ ai_flags*: intFlags; (* input flags *)
|
|
|
ai_family*: int; (* protocol family for socket *)
|
|
|
ai_socktype*: int; (* socket type *)
|
|
|
ai_protocol*: int; (* protocol for socket *)
|
|
|
ai_addrlen*: socklen_t; (* length of socket-address *)
|
|
|
ai_addr*: Ptrsockaddr; (* socket-address for socket *)
|
|
|
- ai_canonname*: Libc.PtrSTR; (* canonical name for service location (iff req) *)
|
|
|
+ ai_canonname*: PtrSTR; (* canonical name for service location (iff req) *)
|
|
|
ai_next*: Ptraddrinfo; (* pointer to next in list *)
|
|
|
- END;
|
|
|
+ END;
|
|
|
|
|
|
- (* /usr/include/sys/time.h *)
|
|
|
- timeval* = RECORD [untagged]
|
|
|
+ timeval* = RECORD [untagged]
|
|
|
+ (* Linux, FreeBSD, OpenBSD *)
|
|
|
tv_sec*: time_t; (* seconds *)
|
|
|
tv_usec*: suseconds_t; (* and microseconds *)
|
|
|
- END;
|
|
|
+ END;
|
|
|
+
|
|
|
+ pollfd* = RECORD [untagged]
|
|
|
+ (* Linux, FreeBSD, OpenBSD *)
|
|
|
+ fd*: int;
|
|
|
+ events*: short;
|
|
|
+ revents*: short;
|
|
|
+ END;
|
|
|
|
|
|
- (* /usr/include/sys/select.h *)
|
|
|
+ (* OpenBSD 6.0 /usr/include/sys/select.h *)
|
|
|
__fd_mask = SET;
|
|
|
fd_set* = ARRAY [untagged] (FD_SETSIZE + (SIZE(__fd_mask) * __NBBY - 1)) DIV (SIZE(__fd_mask) * __NBBY) OF __fd_mask;
|
|
|
|
|
|
-(* deprecated
|
|
|
- VAR
|
|
|
- h_errno*: INTEGER;
|
|
|
-*)
|
|
|
+ (* POSIX.1 *)
|
|
|
+ PROCEDURE [ccall] socket* (domain: int; type: int; protocol: int): SOCKET;
|
|
|
+ PROCEDURE [ccall] accept* (s: SOCKET; VAR addr: sockaddr; VAR addrlen: socklen_t): SOCKET;
|
|
|
+ PROCEDURE [ccall] bind* (s: SOCKET; VAR name: sockaddr; namelen: socklen_t): int;
|
|
|
+ PROCEDURE [ccall] connect* (s: SOCKET; VAR name: sockaddr; namelen: socklen_t): int;
|
|
|
+ PROCEDURE [ccall] getsockname* (s: SOCKET; VAR name: sockaddr; VAR namelen: socklen_t): int;
|
|
|
+ PROCEDURE [ccall] listen* (s: SOCKET; backlog: int): int;
|
|
|
+ PROCEDURE [ccall] recv* (s: SOCKET; buf: PtrVoid; len: size_t; flags: intFlags): ssize_t;
|
|
|
+ PROCEDURE [ccall] send* (s: SOCKET; msg: PtrVoid; len: size_t; flags: intFlags): ssize_t;
|
|
|
+ PROCEDURE [ccall] shutdown* (s: SOCKET; how: int): int;
|
|
|
+ PROCEDURE [ccall] getsockopt* (s: SOCKET; level: int; optname: intFlags; optval: PtrVoid; VAR [nil] optlen: socklen_t): int;
|
|
|
+ PROCEDURE [ccall] setsockopt* (s: SOCKET; level: int; optname: intFlags; optval: PtrVoid; optlen: socklen_t): int;
|
|
|
|
|
|
- PROCEDURE [ccall] socket* (domain: int; type: int; protocol: int): SOCKET;
|
|
|
- PROCEDURE [ccall] accept* (s: SOCKET; VAR addr: sockaddr; VAR addrlen: socklen_t): SOCKET;
|
|
|
- PROCEDURE [ccall] bind* (s: SOCKET; VAR name: sockaddr; namelen: socklen_t): INTEGER;
|
|
|
- PROCEDURE [ccall] connect* (s: SOCKET; VAR name: sockaddr; namelen: socklen_t): INTEGER;
|
|
|
- PROCEDURE [ccall] listen* (s: SOCKET; backlog: INTEGER): INTEGER;
|
|
|
- PROCEDURE [ccall] recv* (s: SOCKET; buf: PtrVoid; len: size_t; flags: SET): ssize_t;
|
|
|
- PROCEDURE [ccall] send* (s: SOCKET; msg: PtrVoid; len: size_t; flags: SET): ssize_t;
|
|
|
- PROCEDURE [ccall] shutdown* (s: SOCKET; how: INTEGER): INTEGER;
|
|
|
- PROCEDURE [ccall] getsockopt* (s: SOCKET; level: INTEGER; optname: SET; optval: PtrVoid; VAR optlen: socklen_t): INTEGER;
|
|
|
- PROCEDURE [ccall] setsockopt* (s: SOCKET; level: INTEGER; optname: SET; optval: PtrVoid; optlen: socklen_t): INTEGER;
|
|
|
-
|
|
|
- PROCEDURE [ccall] htons* (host16: SHORTINT): SHORTINT;
|
|
|
-
|
|
|
-(* deprecated
|
|
|
- PROCEDURE [ccall] gethostbyname* (name: Libc.PtrSTR): Ptrhostent;
|
|
|
-*)
|
|
|
- PROCEDURE [ccall] inet_addr* (cp: Libc.PtrSTR): in_addr_t;
|
|
|
+ PROCEDURE [ccall] inet_addr* (cp: PtrSTR): in_addr_t;
|
|
|
+ PROCEDURE [ccall] htons* (host16: uint16_t): uint16_t;
|
|
|
|
|
|
- PROCEDURE [ccall] getsockname* (s: SOCKET; VAR name: sockaddr; VAR namelen: socklen_t): INTEGER;
|
|
|
+ PROCEDURE [ccall] select* (nfds: INTEGER; VAR [nil] readfds: fd_set; VAR [nil] writefds: fd_set; VAR [nil] exceptfds: fd_set; VAR timeout: timeval): int;
|
|
|
|
|
|
-(* deprecated
|
|
|
- PROCEDURE [ccall] hstrerror* (err: INTEGER): Libc.PtrSTR;
|
|
|
-*)
|
|
|
+ PROCEDURE [ccall] poll* (VAR fds: ARRAY [untagged] OF pollfd; nfds: nfds_t; timeout: int): int;
|
|
|
|
|
|
(*
|
|
|
PROCEDURE FD_ZERO (VAR set: Net.fd_set);
|
|
|
@@ -304,11 +305,10 @@ MODULE LinNet ["libc.so.89.2"];
|
|
|
END FD_SET;
|
|
|
*)
|
|
|
|
|
|
- PROCEDURE [ccall] select* (nfds: INTEGER; VAR [nil] readfds: fd_set; VAR [nil] writefds: fd_set; VAR [nil] exceptfds: fd_set; VAR timeout: timeval): INTEGER;
|
|
|
-
|
|
|
- PROCEDURE [ccall] getaddrinfo* (hostname, servname: Libc.PtrSTR; VAR [nil] hints: addrinfo; VAR res: Ptraddrinfo): int;
|
|
|
- PROCEDURE [ccall] freeaddrinfo* (ai: Ptraddrinfo);
|
|
|
+ (* POSIX.1g *)
|
|
|
+ PROCEDURE [ccall] getaddrinfo* (hostname: PtrSTR; servname: PtrSTR; VAR [nil] hints: addrinfo; VAR res: Ptraddrinfo): int;
|
|
|
+ PROCEDURE [ccall] freeaddrinfo* (ai: Ptraddrinfo);
|
|
|
|
|
|
- PROCEDURE [ccall] gai_strerror* (ecode: int): Libc.PtrSTR;
|
|
|
+ PROCEDURE [ccall] gai_strerror* (ecode: int): PtrSTR;
|
|
|
|
|
|
END LinNet.
|
Alexander Shiryaev