DEADSOFTWARE

OpenBSD CommTCP implementation added
[bbcp.git] / Trurl-based / _OpenBSD_ / Lin / Mod / gen-Net / Net.txt.templ
1 MODULE LinNet ["libc.so.66.0"];
3 (*
4 A. V. Shiryaev, 2012.11
6 OpenBSD 5.2
7 32-bit
8 *)
10 IMPORT Libc := LinLibc;
12 CONST
13 INVALID_SOCKET* = -1;
14 SOCKET_ERROR* = -1;
16 (* /usr/include/sys/socket.h *)
17 %%defs-socket%%
18 (* /usr/include/netinet/in.h *)
19 INADDR_NONE* = -1;
20 %%defs-in%%
21 (* /usr/include/sys/param.h *)
22 MAXHOSTNAMELEN* = 256; (* max hostname size *)
24 (* /usr/include/netdb.h *)
25 %%defs-netdb%%
26 (* /usr/include/sys/select.h *)
27 FD_SETSIZE = 1024;
28 __NBBY = 8;
29 TYPE
30 SOCKET* = INTEGER;
32 (* /usr/include/sys/_types.h *)
33 socklen_t* = INTEGER;
34 sa_family_t* = SHORTCHAR;
35 in_addr_t* = INTEGER;
36 in_port_t* = SHORTINT;
38 (* /usr/include/sys/socket.h *)
39 sockaddr* = RECORD [untagged]
40 sa_len*: SHORTCHAR; (* total length *)
41 sa_family*: sa_family_t; (* address family *)
42 sa_data*: ARRAY [untagged] 14 OF SHORTCHAR; (* actually longer; address value *)
43 END;
44 sockaddr_storage* = RECORD [untagged]
45 ss_len*: SHORTCHAR; (* total length *)
46 ss_family*: sa_family_t; (* address family *)
47 __ss_pad1: ARRAY [untagged] 6 OF SHORTCHAR; (* align to quad *)
48 __ss_pad2: LONGINT; (* force alignment for stupid compilers *)
49 __ss_pad3: ARRAY [untagged] 240 OF SHORTCHAR; (* pad to a total of 256 bytes *)
50 END;
52 (* /usr/include/netinet/in.h *)
53 (*
54 in_addr* = RECORD [untagged]
55 s_addr*: in_addr_t;
56 END;
57 *)
58 in_addr* = RECORD [untagged]
59 S_un*: RECORD [union]
60 S_un_b*: RECORD [untagged]
61 s_b1*: SHORTCHAR;
62 s_b2*: SHORTCHAR;
63 s_b3*: SHORTCHAR;
64 s_b4*: SHORTCHAR;
65 END;
66 S_un_w*: RECORD [untagged]
67 s_w1*: SHORTINT;
68 s_w2*: SHORTINT;
69 END;
70 S_addr*: in_addr_t;
71 END;
72 END;
74 sockaddr_in* = RECORD [untagged]
75 sin_len*: SHORTCHAR;
76 sin_family*: sa_family_t;
77 sin_port*: in_port_t;
78 sin_addr*: in_addr;
79 sin_zero*: ARRAY [untagged] 8 OF SHORTCHAR;
80 END;
82 (* /usr/include/netdb.h *)
83 Ptrhostent* = POINTER TO hostent;
84 hostent* = RECORD [untagged]
85 h_name*: Libc.PtrSTR; (* official name of host *)
86 h_aliases*: POINTER TO ARRAY [untagged] OF Libc.PtrSTR; (* alias list *)
87 h_addrtype*: INTEGER; (* host address type *)
88 h_length*: INTEGER; (* length of address *)
89 h_addr_list*: POINTER TO ARRAY [untagged] OF POINTER TO ARRAY [untagged] OF in_addr; (* list of addresses from name server *)
90 END;
92 (* /usr/include/sys/time.h *)
93 timeval* = RECORD [untagged]
94 tv_sec*: INTEGER; (* seconds *)
95 tv_usec*: INTEGER; (* and microseconds *)
96 END;
98 (* /usr/include/sys/select.h *)
99 __fd_mask = SET;
100 fd_set* = ARRAY [untagged] (FD_SETSIZE + (SIZE(__fd_mask) * __NBBY - 1)) DIV (SIZE(__fd_mask) * __NBBY) OF __fd_mask;
102 VAR
103 h_errno*: INTEGER;
105 PROCEDURE [ccall] socket* (domain: INTEGER; type: INTEGER; protocol: INTEGER): SOCKET;
106 PROCEDURE [ccall] accept* (s: SOCKET; VAR addr: sockaddr; VAR addrlen: socklen_t): SOCKET;
107 PROCEDURE [ccall] bind* (s: SOCKET; VAR name: sockaddr; namelen: socklen_t): INTEGER;
108 PROCEDURE [ccall] connect* (s: SOCKET; VAR name: sockaddr; namelen: socklen_t): INTEGER;
109 PROCEDURE [ccall] listen* (s: SOCKET; backlog: INTEGER): INTEGER;
110 PROCEDURE [ccall] recv* (s: SOCKET; buf: Libc.PtrVoid; len: Libc.size_t; flags: SET): Libc.ssize_t;
111 PROCEDURE [ccall] send* (s: SOCKET; msg: Libc.PtrVoid; len: Libc.size_t; flags: SET): Libc.ssize_t;
112 PROCEDURE [ccall] shutdown* (s: SOCKET; how: INTEGER): INTEGER;
113 PROCEDURE [ccall] getsockopt* (s: SOCKET; level: INTEGER; optname: SET; optval: Libc.PtrVoid; VAR optlen: socklen_t): INTEGER;
114 PROCEDURE [ccall] setsockopt* (s: SOCKET; level: INTEGER; optname: SET; optval: Libc.PtrVoid; optlen: socklen_t): INTEGER;
116 PROCEDURE [ccall] htons* (host16: SHORTINT): SHORTINT;
118 PROCEDURE [ccall] gethostbyname* (name: Libc.PtrSTR): Ptrhostent;
119 PROCEDURE [ccall] inet_addr* (cp: Libc.PtrSTR): in_addr_t;
121 PROCEDURE [ccall] getsockname* (s: SOCKET; VAR name: sockaddr; VAR namelen: socklen_t): INTEGER;
123 PROCEDURE [ccall] hstrerror* (err: INTEGER): Libc.PtrSTR;
125 (*
126 PROCEDURE FD_ZERO (VAR set: Net.fd_set);
127 VAR i: INTEGER;
128 BEGIN
129 i := 0; WHILE i < LEN(set) DO set[i] := {}; INC(i) END
130 END FD_ZERO;
132 PROCEDURE FD_SET (fd: Net.SOCKET; VAR set: Net.fd_set);
133 BEGIN
134 INCL(set[fd DIV 32], fd MOD 32)
135 END FD_SET;
136 *)
138 PROCEDURE [ccall] select* (nfds: INTEGER; VAR [nil] readfds: fd_set; VAR [nil] writefds: fd_set; VAR [nil] exceptfds: fd_set; VAR timeout: timeval): INTEGER;
140 END LinNet.