BlackBox/_OpenBSD_/Lin/Mod/gen-Net/Net.txt.templ

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