1------------------------------------------------------------------------------ 2-- -- 3-- GNAT COMPILER COMPONENTS -- 4-- -- 5-- G N A T . S O C K E T S . T H I N -- 6-- -- 7-- S p e c -- 8-- -- 9-- Copyright (C) 2001-2013, AdaCore -- 10-- -- 11-- GNAT is free software; you can redistribute it and/or modify it under -- 12-- terms of the GNU General Public License as published by the Free Soft- -- 13-- ware Foundation; either version 3, or (at your option) any later ver- -- 14-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 15-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- 16-- or FITNESS FOR A PARTICULAR PURPOSE. -- 17-- -- 18-- As a special exception under Section 7 of GPL version 3, you are granted -- 19-- additional permissions described in the GCC Runtime Library Exception, -- 20-- version 3.1, as published by the Free Software Foundation. -- 21-- -- 22-- You should have received a copy of the GNU General Public License and -- 23-- a copy of the GCC Runtime Library Exception along with this program; -- 24-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 25-- <http://www.gnu.org/licenses/>. -- 26-- -- 27-- GNAT was originally developed by the GNAT team at New York University. -- 28-- Extensive contributions were provided by Ada Core Technologies Inc. -- 29-- -- 30------------------------------------------------------------------------------ 31 32-- This package provides a target dependent thin interface to the sockets 33-- layer for use by the GNAT.Sockets package (g-socket.ads). This package 34-- should not be directly with'ed by an applications program. 35 36-- This version is for NT 37 38with Interfaces.C; 39 40with GNAT.Sockets.Thin_Common; 41 42with System; 43with System.CRTL; 44 45package GNAT.Sockets.Thin is 46 47 use Thin_Common; 48 49 package C renames Interfaces.C; 50 51 use type System.CRTL.ssize_t; 52 53 function Socket_Errno return Integer; 54 -- Returns last socket error number 55 56 procedure Set_Socket_Errno (Errno : Integer); 57 -- Set last socket error number 58 59 function Socket_Error_Message (Errno : Integer) return String; 60 -- Returns the error message string for the error number Errno. If Errno is 61 -- not known, returns "Unknown system error". 62 63 function Host_Errno return Integer; 64 pragma Import (C, Host_Errno, "__gnat_get_h_errno"); 65 -- Returns last host error number 66 67 package Host_Error_Messages is 68 69 function Host_Error_Message (H_Errno : Integer) return String; 70 -- Returns the error message string for the host error number H_Errno. 71 -- If H_Errno is not known, returns "Unknown system error". 72 73 end Host_Error_Messages; 74 75 -------------------------------- 76 -- Standard library functions -- 77 -------------------------------- 78 79 function C_Accept 80 (S : C.int; 81 Addr : System.Address; 82 Addrlen : not null access C.int) return C.int; 83 84 function C_Bind 85 (S : C.int; 86 Name : System.Address; 87 Namelen : C.int) return C.int; 88 89 function C_Close 90 (Fd : C.int) return C.int; 91 92 function C_Connect 93 (S : C.int; 94 Name : System.Address; 95 Namelen : C.int) return C.int; 96 97 function C_Gethostname 98 (Name : System.Address; 99 Namelen : C.int) return C.int; 100 101 function C_Getpeername 102 (S : C.int; 103 Name : System.Address; 104 Namelen : not null access C.int) return C.int; 105 106 function C_Getsockname 107 (S : C.int; 108 Name : System.Address; 109 Namelen : not null access C.int) return C.int; 110 111 function C_Getsockopt 112 (S : C.int; 113 Level : C.int; 114 Optname : C.int; 115 Optval : System.Address; 116 Optlen : not null access C.int) return C.int; 117 118 function Socket_Ioctl 119 (S : C.int; 120 Req : SOSC.IOCTL_Req_T; 121 Arg : access C.int) return C.int; 122 123 function C_Listen 124 (S : C.int; 125 Backlog : C.int) return C.int; 126 127 function C_Recv 128 (S : C.int; 129 Msg : System.Address; 130 Len : C.int; 131 Flags : C.int) return C.int; 132 133 function C_Recvfrom 134 (S : C.int; 135 Msg : System.Address; 136 Len : C.int; 137 Flags : C.int; 138 From : System.Address; 139 Fromlen : not null access C.int) return C.int; 140 141 function C_Recvmsg 142 (S : C.int; 143 Msg : System.Address; 144 Flags : C.int) return System.CRTL.ssize_t; 145 146 function C_Select 147 (Nfds : C.int; 148 Readfds : access Fd_Set; 149 Writefds : access Fd_Set; 150 Exceptfds : access Fd_Set; 151 Timeout : Timeval_Access) return C.int; 152 153 function C_Sendmsg 154 (S : C.int; 155 Msg : System.Address; 156 Flags : C.int) return System.CRTL.ssize_t; 157 158 function C_Sendto 159 (S : C.int; 160 Msg : System.Address; 161 Len : C.int; 162 Flags : C.int; 163 To : System.Address; 164 Tolen : C.int) return C.int; 165 166 function C_Setsockopt 167 (S : C.int; 168 Level : C.int; 169 Optname : C.int; 170 Optval : System.Address; 171 Optlen : C.int) return C.int; 172 173 function C_Shutdown 174 (S : C.int; 175 How : C.int) return C.int; 176 177 function C_Socket 178 (Domain : C.int; 179 Typ : C.int; 180 Protocol : C.int) return C.int; 181 182 function C_System 183 (Command : System.Address) return C.int; 184 185 function WSAStartup 186 (WS_Version : Interfaces.C.unsigned_short; 187 WSADataAddress : System.Address) return Interfaces.C.int; 188 189 ------------------------------------------------------- 190 -- Signalling file descriptors for selector abortion -- 191 ------------------------------------------------------- 192 193 package Signalling_Fds is 194 195 function Create (Fds : not null access Fd_Pair) return C.int; 196 pragma Convention (C, Create); 197 -- Create a pair of connected descriptors suitable for use with C_Select 198 -- (used for signalling in Selector objects). 199 200 function Read (Rsig : C.int) return C.int; 201 pragma Convention (C, Read); 202 -- Read one byte of data from rsig, the read end of a pair of signalling 203 -- fds created by Create_Signalling_Fds. 204 205 function Write (Wsig : C.int) return C.int; 206 pragma Convention (C, Write); 207 -- Write one byte of data to wsig, the write end of a pair of signalling 208 -- fds created by Create_Signalling_Fds. 209 210 procedure Close (Sig : C.int); 211 pragma Convention (C, Close); 212 -- Close one end of a pair of signalling fds (ignoring any error) 213 214 end Signalling_Fds; 215 216 procedure WSACleanup; 217 218 procedure Initialize; 219 procedure Finalize; 220 221private 222 pragma Import (Stdcall, C_Accept, "accept"); 223 pragma Import (Stdcall, C_Bind, "bind"); 224 pragma Import (Stdcall, C_Close, "closesocket"); 225 pragma Import (Stdcall, C_Gethostname, "gethostname"); 226 pragma Import (Stdcall, C_Getpeername, "getpeername"); 227 pragma Import (Stdcall, C_Getsockname, "getsockname"); 228 pragma Import (Stdcall, C_Getsockopt, "getsockopt"); 229 pragma Import (Stdcall, C_Listen, "listen"); 230 pragma Import (Stdcall, C_Recv, "recv"); 231 pragma Import (Stdcall, C_Recvfrom, "recvfrom"); 232 pragma Import (Stdcall, C_Sendto, "sendto"); 233 pragma Import (Stdcall, C_Setsockopt, "setsockopt"); 234 pragma Import (Stdcall, C_Shutdown, "shutdown"); 235 pragma Import (Stdcall, C_Socket, "socket"); 236 pragma Import (C, C_System, "_system"); 237 pragma Import (Stdcall, Socket_Errno, "WSAGetLastError"); 238 pragma Import (Stdcall, Set_Socket_Errno, "WSASetLastError"); 239 pragma Import (Stdcall, WSAStartup, "WSAStartup"); 240 pragma Import (Stdcall, WSACleanup, "WSACleanup"); 241 242end GNAT.Sockets.Thin; 243