OpenBSD CommTCP implementation added

diff --git a/Trurl-based/_OpenBSD_/Comm/Mod/TCP.odc b/Trurl-based/_OpenBSD_/Comm/Mod/TCP.odc
new file mode 100644 (file)
index 0000000..3181e5e
Binary files /dev/null and b/Trurl-based/_OpenBSD_/Comm/Mod/TCP.odc differ

diff --git a/Trurl-based/_OpenBSD_/Lin/Mod/Net.txt b/Trurl-based/_OpenBSD_/Lin/Mod/Net.txt
new file mode 100644 (file)
index 0000000..24b0984
--- /dev/null
+++ b/Trurl-based/_OpenBSD_/Lin/Mod/Net.txt
@@ -0,0 +1,270 @@
+MODULE LinNet ["libc.so.66.0"];
+
+       (*
+               A. V. Shiryaev, 2012.11
+
+               OpenBSD 5.2
+               32-bit
+       *)
+
+       IMPORT Libc := LinLibc;
+
+       CONST
+               INVALID_SOCKET* = -1;
+               SOCKET_ERROR* = -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 *)
+                       AF_UNSPEC* = 0; (* unspecified *)
+                       AF_LOCAL* = 1; (* local to host (pipes, portals) *)
+                       AF_UNIX* = AF_LOCAL; (* backward compatibility *)
+                       AF_INET* = 2; (* internetwork: UDP, TCP, etc. *)
+                       AF_IMPLINK* = 3; (* arpanet imp addresses *)
+                       AF_PUP* = 4; (* pup protocols: e.g. BSP *)
+                       AF_CHAOS* = 5; (* mit CHAOS protocols *)
+                       AF_NS* = 6; (* XEROX NS protocols *)
+                       AF_ISO* = 7; (* ISO protocols *)
+                       AF_ECMA* = 8; (* european computer manufacturers *)
+                       AF_DATAKIT* = 9; (* datakit protocols *)
+                       AF_CCITT* = 10; (* CCITT protocols, X.25 etc *)
+                       AF_SNA* = 11; (* IBM SNA *)
+                       AF_DECnet* = 12; (* DECnet *)
+                       AF_DLI* = 13; (* DEC Direct data link interface *)
+                       AF_LAT* = 14; (* LAT *)
+                       AF_HYLINK* = 15; (* NSC Hyperchannel *)
+                       AF_APPLETALK* = 16; (* Apple Talk *)
+                       AF_ROUTE* = 17; (* Internal Routing Protocol *)
+                       AF_LINK* = 18; (* Link layer interface *)
+                       AF_COIP* = 20; (* connection-oriented IP, aka ST II *)
+                       AF_CNT* = 21; (* Computer Network Technology *)
+                       AF_IPX* = 23; (* Novell Internet Protocol *)
+                       AF_INET6* = 24; (* IPv6 *)
+                       AF_ISDN* = 26; (* Integrated Services Digital Network *)
+                       AF_E164* = AF_ISDN; (* CCITT E.164 recommendation *)
+                       AF_NATM* = 27; (* native ATM access *)
+                       AF_ENCAP* = 28;
+                       AF_SIP* = 29; (* Simple Internet Protocol *)
+                       AF_KEY* = 30;
+                       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 *)
+
+               (* /usr/include/netinet/in.h *)
+                       INADDR_NONE* = -1;
+                       IPPROTO_IP* = 0; (* dummy for IP *)
+                       IPPROTO_HOPOPTS* = IPPROTO_IP; (* Hop-by-hop option header *)
+                       IPPROTO_ICMP* = 1; (* control message protocol *)
+                       IPPROTO_IGMP* = 2; (* group mgmt protocol *)
+                       IPPROTO_GGP* = 3; (* gateway^2 (deprecated) *)
+                       IPPROTO_IPIP* = 4; (* IP inside IP *)
+                       IPPROTO_IPV4* = IPPROTO_IPIP; (* IP inside IP *)
+                       IPPROTO_TCP* = 6; (* tcp *)
+                       IPPROTO_EGP* = 8; (* exterior gateway protocol *)
+                       IPPROTO_PUP* = 12; (* pup *)
+                       IPPROTO_UDP* = 17; (* user datagram protocol *)
+                       IPPROTO_IDP* = 22; (* xns idp *)
+                       IPPROTO_TP* = 29; (* tp-4 w/ class negotiation *)
+                       IPPROTO_IPV6* = 41; (* IPv6 in IPv6 *)
+                       IPPROTO_ROUTING* = 43; (* Routing header *)
+                       IPPROTO_FRAGMENT* = 44; (* Fragmentation/reassembly header *)
+                       IPPROTO_RSVP* = 46; (* resource reservation *)
+                       IPPROTO_GRE* = 47; (* GRE encap, RFCs 1701/1702 *)
+                       IPPROTO_ESP* = 50; (* Encap. Security Payload *)
+                       IPPROTO_AH* = 51; (* Authentication header *)
+                       IPPROTO_MOBILE* = 55; (* IP Mobility, RFC 2004 *)
+                       IPPROTO_ICMPV6* = 58; (* ICMP for IPv6 *)
+                       IPPROTO_NONE* = 59; (* No next header *)
+                       IPPROTO_DSTOPTS* = 60; (* Destination options header *)
+                       IPPROTO_EON* = 80; (* ISO cnlp *)
+                       IPPROTO_ETHERIP* = 97; (* Ethernet in IPv4 *)
+                       IPPROTO_ENCAP* = 98; (* encapsulation header *)
+                       IPPROTO_PIM* = 103; (* Protocol indep. multicast *)
+                       IPPROTO_IPCOMP* = 108; (* IP Payload Comp. Protocol *)
+                       IPPROTO_CARP* = 112; (* CARP *)
+                       IPPROTO_MPLS* = 137; (* unicast MPLS packet *)
+                       IPPROTO_PFSYNC* = 240; (* PFSYNC *)
+                       IPPROTO_RAW* = 255; (* raw IP packet *)
+                       IPPROTO_MAX* = 256;
+                       IPPROTO_DIVERT* = 258; (* Divert sockets *)
+                       IPPROTO_DONE* = 257;
+
+               (* /usr/include/sys/param.h *)
+                       MAXHOSTNAMELEN* = 256; (* max hostname size *)
+
+               (* /usr/include/netdb.h *)
+                       NETDB_INTERNAL* = -1; (* see errno *)
+                       NETDB_SUCCESS* = 0; (* no problem *)
+                       HOST_NOT_FOUND* = 1; (* Authoritative Answer Host not found *)
+                       TRY_AGAIN* = 2; (* Non-Authoritative Host not found, or SERVERFAIL *)
+                       NO_RECOVERY* = 3; (* Non recoverable errors, FORMERR, REFUSED, NOTIMP *)
+                       NO_DATA* = 4; (* Valid name, no data record of requested type *)
+                       NO_ADDRESS* = NO_DATA; (* no address *)
+                       NI_MAXHOST* = MAXHOSTNAMELEN; (* max host name returned by getnameinfo *)
+                       NI_MAXSERV* = 32; (* max serv. name length returned by getnameinfo *)
+                       RRSET_VALIDATED* = 1;
+                       ERRSET_SUCCESS* = 0;
+                       ERRSET_NOMEMORY* = 1;
+                       ERRSET_FAIL* = 2;
+                       ERRSET_INVAL* = 3;
+                       ERRSET_NONAME* = 4;
+                       ERRSET_NODATA* = 5;
+
+               (* /usr/include/sys/select.h *)
+                       FD_SETSIZE = 1024;
+                       __NBBY = 8;
+       TYPE
+               SOCKET* = INTEGER;
+
+               (* /usr/include/sys/_types.h *)
+                       socklen_t* = INTEGER;
+                       sa_family_t* = SHORTCHAR;
+                       in_addr_t* = INTEGER;
+                       in_port_t* = SHORTINT;
+
+               (* /usr/include/sys/socket.h *)
+                       sockaddr* = RECORD [untagged]
+                               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]
+                               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;
+
+                       sockaddr_in* = RECORD [untagged]
+                               sin_len*: SHORTCHAR;
+                               sin_family*: sa_family_t;
+                               sin_port*: in_port_t;
+                               sin_addr*: in_addr;
+                               sin_zero*: ARRAY [untagged] 8 OF SHORTCHAR;
+                       END;
+
+               (* /usr/include/netdb.h *)
+                       Ptrhostent* = POINTER TO hostent;
+                       hostent* = RECORD [untagged]
+                               h_name*: Libc.PtrSTR; (* official name of host *)
+                               h_aliases*: POINTER TO ARRAY [untagged] OF Libc.PtrSTR; (* alias list *)
+                               h_addrtype*: INTEGER; (* host address type *)
+                               h_length*: INTEGER; (* length of address *)
+                               h_addr_list*: POINTER TO ARRAY [untagged] OF POINTER TO ARRAY [untagged] OF in_addr; (* list of addresses from name server *)
+                       END;
+
+               (* /usr/include/sys/time.h *)
+                       timeval* = RECORD [untagged]
+                               tv_sec*: INTEGER; (* seconds *)
+                               tv_usec*: INTEGER; (* and microseconds *)
+                       END;
+
+               (* /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;
+
+       VAR
+               h_errno*: INTEGER;
+
+       PROCEDURE [ccall] socket* (domain: INTEGER; type: INTEGER; protocol: INTEGER): 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: Libc.PtrVoid; len: Libc.size_t; flags: SET): Libc.ssize_t;
+       PROCEDURE [ccall] send* (s: SOCKET; msg: Libc.PtrVoid; len: Libc.size_t; flags: SET): Libc.ssize_t;
+       PROCEDURE [ccall] shutdown* (s: SOCKET; how: INTEGER): INTEGER;
+       PROCEDURE [ccall] getsockopt* (s: SOCKET; level: INTEGER; optname: SET; optval: Libc.PtrVoid; VAR optlen: socklen_t): INTEGER;
+       PROCEDURE [ccall] setsockopt* (s: SOCKET; level: INTEGER; optname: SET; optval: Libc.PtrVoid; optlen: socklen_t): INTEGER;
+
+       PROCEDURE [ccall] htons* (host16: SHORTINT): SHORTINT;
+
+       PROCEDURE [ccall] gethostbyname* (name: Libc.PtrSTR): Ptrhostent;
+       PROCEDURE [ccall] inet_addr* (cp: Libc.PtrSTR): in_addr_t;
+
+       PROCEDURE [ccall] getsockname* (s: SOCKET; VAR name: sockaddr; VAR namelen: socklen_t): INTEGER;
+
+       PROCEDURE [ccall] hstrerror* (err: INTEGER): Libc.PtrSTR;
+
+(*
+       PROCEDURE FD_ZERO (VAR set: Net.fd_set);
+               VAR i: INTEGER;
+       BEGIN
+               i := 0; WHILE i < LEN(set) DO set[i] := {}; INC(i) END
+       END FD_ZERO;
+
+       PROCEDURE FD_SET (fd: Net.SOCKET; VAR set: Net.fd_set);
+       BEGIN
+               INCL(set[fd DIV 32], fd MOD 32)
+       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;
+
+END LinNet.

diff --git a/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/Makefile b/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/Makefile
new file mode 100644 (file)
index 0000000..eeca002
--- /dev/null
+++ b/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/Makefile
@@ -0,0 +1,34 @@
+# This is BSD Makefile
+#    BSD       GNU
+# ${.TARGET}    $@
+# ${.ALLSRC}    $^
+# ${.IMPSRC}    $<
+
+all: Net.txt dumphstrerrno
+
+PY = python2.7
+DEFS = defs-socket defs-in defs-netdb
+
+#defs-ioctl: mkioctl
+#      ./mkioctl > ${.TARGET}
+
+Net.txt: Net.txt.templ ${DEFS}
+       ${PY} ./untempl.py Net.txt.templ ${.TARGET}
+
+defs-socket:
+       ./dumpdefs.py 3 1 i /usr/include/sys/socket.h | grep "  SOCK_" > ${.TARGET}
+       ./dumpdefs.py 3 1 i /usr/include/sys/socket.h | grep "  AF_" >> ${.TARGET}
+       ./dumpdefs.py 3 1 i /usr/include/sys/socket.h | grep "  SHUT_" >> ${.TARGET}
+       ./dumpdefs.py 3 1 i /usr/include/sys/socket.h | grep "  SOMAXCONN" >> ${.TARGET}
+       ./dumpdefs.py 3 1 s /usr/include/sys/socket.h | grep "  SO_" >> ${.TARGET}
+       ./dumpdefs.py 3 1 i /usr/include/sys/socket.h | grep "  SOL_" >> ${.TARGET}
+       ./dumpdefs.py 3 1 s /usr/include/sys/socket.h | grep "  MSG_" >> ${.TARGET}
+
+defs-in:
+       ./dumpdefs.py 3 1 i /usr/include/netinet/in.h | grep "  IPPROTO_" > ${.TARGET}
+
+defs-netdb:
+       ./dumpdefs.py 3 2 i /usr/include/netdb.h > ${.TARGET}
+
+clean:
+       rm -f Net.txt ${DEFS} dumphstrerrno

diff --git a/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/Net.txt.templ b/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/Net.txt.templ
new file mode 100644 (file)
index 0000000..fa144c0
--- /dev/null
+++ b/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/Net.txt.templ
@@ -0,0 +1,140 @@
+MODULE LinNet ["libc.so.66.0"];
+
+       (*
+               A. V. Shiryaev, 2012.11
+
+               OpenBSD 5.2
+               32-bit
+       *)
+
+       IMPORT Libc := LinLibc;
+
+       CONST
+               INVALID_SOCKET* = -1;
+               SOCKET_ERROR* = -1;
+
+               (* /usr/include/sys/socket.h *)
+%%defs-socket%%
+               (* /usr/include/netinet/in.h *)
+                       INADDR_NONE* = -1;
+%%defs-in%%
+               (* /usr/include/sys/param.h *)
+                       MAXHOSTNAMELEN* = 256; (* max hostname size *)
+
+               (* /usr/include/netdb.h *)
+%%defs-netdb%%
+               (* /usr/include/sys/select.h *)
+                       FD_SETSIZE = 1024;
+                       __NBBY = 8;
+       TYPE
+               SOCKET* = INTEGER;
+
+               (* /usr/include/sys/_types.h *)
+                       socklen_t* = INTEGER;
+                       sa_family_t* = SHORTCHAR;
+                       in_addr_t* = INTEGER;
+                       in_port_t* = SHORTINT;
+
+               (* /usr/include/sys/socket.h *)
+                       sockaddr* = RECORD [untagged]
+                               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]
+                               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;
+
+                       sockaddr_in* = RECORD [untagged]
+                               sin_len*: SHORTCHAR;
+                               sin_family*: sa_family_t;
+                               sin_port*: in_port_t;
+                               sin_addr*: in_addr;
+                               sin_zero*: ARRAY [untagged] 8 OF SHORTCHAR;
+                       END;
+
+               (* /usr/include/netdb.h *)
+                       Ptrhostent* = POINTER TO hostent;
+                       hostent* = RECORD [untagged]
+                               h_name*: Libc.PtrSTR; (* official name of host *)
+                               h_aliases*: POINTER TO ARRAY [untagged] OF Libc.PtrSTR; (* alias list *)
+                               h_addrtype*: INTEGER; (* host address type *)
+                               h_length*: INTEGER; (* length of address *)
+                               h_addr_list*: POINTER TO ARRAY [untagged] OF POINTER TO ARRAY [untagged] OF in_addr; (* list of addresses from name server *)
+                       END;
+
+               (* /usr/include/sys/time.h *)
+                       timeval* = RECORD [untagged]
+                               tv_sec*: INTEGER; (* seconds *)
+                               tv_usec*: INTEGER; (* and microseconds *)
+                       END;
+
+               (* /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;
+
+       VAR
+               h_errno*: INTEGER;
+
+       PROCEDURE [ccall] socket* (domain: INTEGER; type: INTEGER; protocol: INTEGER): 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: Libc.PtrVoid; len: Libc.size_t; flags: SET): Libc.ssize_t;
+       PROCEDURE [ccall] send* (s: SOCKET; msg: Libc.PtrVoid; len: Libc.size_t; flags: SET): Libc.ssize_t;
+       PROCEDURE [ccall] shutdown* (s: SOCKET; how: INTEGER): INTEGER;
+       PROCEDURE [ccall] getsockopt* (s: SOCKET; level: INTEGER; optname: SET; optval: Libc.PtrVoid; VAR optlen: socklen_t): INTEGER;
+       PROCEDURE [ccall] setsockopt* (s: SOCKET; level: INTEGER; optname: SET; optval: Libc.PtrVoid; optlen: socklen_t): INTEGER;
+
+       PROCEDURE [ccall] htons* (host16: SHORTINT): SHORTINT;
+
+       PROCEDURE [ccall] gethostbyname* (name: Libc.PtrSTR): Ptrhostent;
+       PROCEDURE [ccall] inet_addr* (cp: Libc.PtrSTR): in_addr_t;
+
+       PROCEDURE [ccall] getsockname* (s: SOCKET; VAR name: sockaddr; VAR namelen: socklen_t): INTEGER;
+
+       PROCEDURE [ccall] hstrerror* (err: INTEGER): Libc.PtrSTR;
+
+(*
+       PROCEDURE FD_ZERO (VAR set: Net.fd_set);
+               VAR i: INTEGER;
+       BEGIN
+               i := 0; WHILE i < LEN(set) DO set[i] := {}; INC(i) END
+       END FD_ZERO;
+
+       PROCEDURE FD_SET (fd: Net.SOCKET; VAR set: Net.fd_set);
+       BEGIN
+               INCL(set[fd DIV 32], fd MOD 32)
+       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;
+
+END LinNet.

diff --git a/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/dumpdefs.py b/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/dumpdefs.py
new file mode 120000 (symlink)
index 0000000..1730591
--- /dev/null
+++ b/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/dumpdefs.py
@@ -0,0 +1 @@
+../gen-Libc/dumpdefs.py
\ No newline at end of file

diff --git a/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/dumphstrerrno.c b/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/dumphstrerrno.c
new file mode 100644 (file)
index 0000000..e839256
--- /dev/null
+++ b/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/dumphstrerrno.c
@@ -0,0 +1,19 @@
+#include <netdb.h>
+#include <stdio.h>
+
+static void D (const char *s, int e)
+{
+       printf("%s, %s\n", s, hstrerror(e));
+}
+
+int main (int argc, char *argv[])
+{
+       D("NETDB_INTERNAL", NETDB_INTERNAL);
+       D("NETDB_SUCCESS", NETDB_SUCCESS);
+       D("HOST_NOT_FOUND", HOST_NOT_FOUND);
+       D("TRY_AGAIN", TRY_AGAIN);
+       D("NO_RECOVERY", NO_RECOVERY);
+       D("NO_DATA", NO_DATA);
+
+       return 0;
+}

diff --git a/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/untempl.py b/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/untempl.py
new file mode 120000 (symlink)
index 0000000..5800713
--- /dev/null
+++ b/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/untempl.py
@@ -0,0 +1 @@
+../gen-Libc/untempl.py
\ No newline at end of file

diff --git a/Trurl-based/build b/Trurl-based/build
index 14a550473fc6cd3f4764971d5c2bee331fcb95dd..44a52bd0faf6872b12dc71e907f83aee4b1aca89 100755 (executable)
--- a/Trurl-based/build
+++ b/Trurl-based/build
@@ -127,5 +127,6 @@ DATA
 ./run-BlackBox <<DATA
 ConsCompiler.Compile('Lin/Mod', 'Termios.txt')
 ConsCompiler.Compile('Lin/Mod', 'Ioctl.txt')
-DevCompiler.CompileThis CommV24
+ConsCompiler.Compile('Lin/Mod', 'Net.txt')
+DevCompiler.CompileThis CommV24 CommTCP
 DATA