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

   1 MODULE LinNet ["libc.so.6"];
   2
   3         (*
   4                 A. V. Shiryaev, 2012.11
   5
   6                 GNU/Linux
   7                 32-bit
   8         *)
   9
  10         IMPORT Libc := LinLibc;
  11
  12         CONST
  13                 INVALID_SOCKET* = -1;
  14                 SOCKET_ERROR* = -1;
  15
  16                 (* /usr/include/i386-linux-gnu/bits/socket.h *)
  17                         SHUT_RD* = 0;
  18                         SHUT_WR* = 1;
  19                         SHUT_RDWR* = 2;
  20 %%defs-sock%%
  21 %%defs-socket%%
  22                 (* /usr/include/asm-generic/socket.h *)
  23 %%defs-so%%
  24                 (* /usr/include/netinet/in.h *)
  25                         INADDR_NONE* = -1;
  26 %%defs-in%%
  27                 (* /usr/include/asm-generic/param.h *)
  28                         MAXHOSTNAMELEN* = 64; (* max length of hostname *)
  29
  30                 (* /usr/include/netdb.h *)
  31 %%defs-netdb%%
  32                 (* /usr/include/i386-linux-gnu/bits/typesizes.h *)
  33                         __FD_SETSIZE = 1024;
  34
  35         TYPE
  36                 SOCKET* = INTEGER;
  37
  38                 (* /usr/include/i386-linux-gnu/bits/types.h *)
  39                         socklen_t* = INTEGER;
  40                 (* /usr/include/i386-linux-gnu/bits/sockaddr.h *)
  41                         sa_family_t* = SHORTINT; (* unsigned short int *)
  42                 (* /usr/include/netinet/in.h *)
  43                         in_addr_t* = INTEGER;
  44                         in_port_t* = SHORTINT;
  45
  46                 (* /usr/include/i386-linux-gnu/bits/socket.h *)
  47                         sockaddr* = RECORD [untagged]
  48                                 sa_family: sa_family_t;
  49                                 sa_data: ARRAY [untagged] 14 OF SHORTCHAR;
  50                         END;
  51
  52                 (* /usr/include/linux/in.h *)
  53 (*
  54                         in_addr* = INTEGER;
  55 *)
  56                         in_addr* = RECORD [untagged]
  57                                 S_un*: RECORD [union]
  58                                         S_un_b*: RECORD [untagged]
  59                                                 s_b1*: SHORTCHAR;
  60                                                 s_b2*: SHORTCHAR;
  61                                                 s_b3*: SHORTCHAR;
  62                                                 s_b4*: SHORTCHAR;
  63                                         END;
  64                                         S_un_w*: RECORD [untagged]
  65                                                 s_w1*: SHORTINT;
  66                                                 s_w2*: SHORTINT;
  67                                         END;
  68                                         S_addr*: in_addr_t;
  69                                 END;
  70                         END;
  71
  72                 (* /usr/include/linux/in.h *)
  73                         sockaddr_in* = RECORD [untagged]
  74                                 sin_family*: sa_family_t; (* address family *)
  75                                 sin_port*: SHORTINT; (* port number *)
  76                                 sin_addr*: in_addr; (* internet address *)
  77                                 __pad: ARRAY [untagged] 8 OF SHORTCHAR;
  78                         END;
  79
  80                 (* /usr/include/netdb.h *)
  81                         Ptrhostent* = POINTER TO hostent;
  82                         hostent* = RECORD [untagged]
  83                                 h_name*: Libc.PtrSTR; (* official name of host *)
  84                                 h_aliases*: POINTER TO ARRAY [untagged] OF Libc.PtrSTR; (* alias list *)
  85                                 h_addrtype*: INTEGER; (* host address type *)
  86                                 h_length*: INTEGER; (* length of address *)
  87                                 h_addr_list*: POINTER TO ARRAY [untagged] OF POINTER TO ARRAY [untagged] OF in_addr; (* list of addresses from name server *)
  88                         END;
  89
  90                 (* /usr/include/linux/time.h *)
  91                 (* /usr/include/asm-generic/posix_types.h *)
  92                         timeval* = RECORD [untagged]
  93                                 tv_sec*: INTEGER; (* seconds *)
  94                                 tv_usec*: INTEGER; (* microseconds *)
  95                         END;
  96
  97                 (* /usr/include/i386-linux-gnu/sys/select.h *)
  98                         __fd_mask = SET;
  99                         fd_set* = ARRAY [untagged] __FD_SETSIZE DIV (SIZE(__fd_mask) * 8) OF __fd_mask;
 100
 101         VAR
 102                 h_errno*: INTEGER;
 103
 104         PROCEDURE [ccall] socket* (domain: INTEGER; type: INTEGER; protocol: INTEGER): SOCKET;
 105         PROCEDURE [ccall] accept* (sockfd: SOCKET; VAR addr: sockaddr; VAR addrlen: socklen_t): SOCKET;
 106         PROCEDURE [ccall] bind* (sockfd: SOCKET; VAR addr: sockaddr; addrlen: socklen_t): INTEGER;
 107         PROCEDURE [ccall] connect* (sockfd: SOCKET; VAR addr: sockaddr; addrlen: socklen_t): INTEGER;
 108         PROCEDURE [ccall] listen* (sockfd: SOCKET; backlog: INTEGER): INTEGER;
 109         PROCEDURE [ccall] recv* (soskfd: SOCKET; buf: Libc.PtrVoid; len: Libc.size_t; flags: SET): Libc.ssize_t;
 110         PROCEDURE [ccall] send* (sockfd: SOCKET; buf: Libc.PtrVoid; len: Libc.size_t; flags: SET): Libc.ssize_t;
 111         PROCEDURE [ccall] shutdown* (sockfd: SOCKET; how: INTEGER): INTEGER;
 112         PROCEDURE [ccall] getsockopt* (sockfd: SOCKET; level: INTEGER; optname: SET; optval: Libc.PtrVoid; VAR optlen: socklen_t): INTEGER;
 113         PROCEDURE [ccall] setsockopt* (sockfd: SOCKET; level: INTEGER; optname: SET; optval: Libc.PtrVoid; optlen: socklen_t): INTEGER;
 114
 115         PROCEDURE [ccall] htons* (hostshort: SHORTINT): SHORTINT;
 116
 117         PROCEDURE [ccall] gethostbyname* (name: Libc.PtrSTR): Ptrhostent;
 118         PROCEDURE [ccall] inet_addr* (cp: Libc.PtrSTR): in_addr_t;
 119
 120         PROCEDURE [ccall] getsockname* (sockfd: SOCKET; VAR addr: sockaddr; VAR addrlen: socklen_t): INTEGER;
 121
 122         PROCEDURE [ccall] hstrerror* (err: INTEGER): Libc.PtrSTR;
 123
 124 (*
 125         PROCEDURE FD_ZERO (VAR set: Net.fd_set);
 126                 VAR i: INTEGER;
 127         BEGIN
 128                 i := LEN(set); REPEAT DEC(i); set[i] := {} UNTIL i = 0
 129         END FD_ZERO;
 130
 131         PROCEDURE FD_SET (fd: Net.SOCKET; VAR set: Net.fd_set);
 132         BEGIN
 133                 INCL(set[fd DIV 32], fd MOD 32)
 134         END FD_SET;
 135 *)
 136
 137         PROCEDURE [ccall] select* (nfds: INTEGER; VAR [nil] readfds: fd_set; VAR [nil] writefds: fd_set; VAR [nil] exceptfds: fd_set; VAR timeout: timeval): INTEGER;
 138
 139 END LinNet.