47a5501df9
2007-04-20 Thomas Quinot <quinot@adacore.com>
Bob Duff <duff@adacore.com>
* g-soccon-freebsd.ads, g-soccon-vxworks.ads:,
g-soccon-aix.ads, g-soccon-irix.ads, g-soccon-hpux.ads,
g-soccon-solaris.ads, g-soccon-vms.ads, g-soccon-tru64.ads: Add new
constant Thread_Blocking_IO, always True by default, set False
on a per-runtime basis.
(Need_Netdb_Buffer): New constant.
* g-stheme.adb, g-sttsne.ads, g-sttsne-locking.ads,
g-sttsne-locking.adb, g-sttsne-vxworks.ads, g-sttsne-vxworks.adb: New
files.
* g-socthi-vxworks.ads, g-socthi-vxworks.adb,
g-socthi-vms.ads, g-socthi-vms.adb (Safe_Gethostbyname,
Safe_Gethostbyaddr, Safe_Getservbyname, Safe_Getservbyport): Use new
child package Task_Safe_NetDB
(Host_Error_Messages): Add stub body.
(GNAT.Sockets.Thin.Signalling_Fds): New procedure Close.
* g-soccon-mingw.ads: Add Windows-specific constants.
(Need_Netdb_Buffer): New constant.
(GNAT.Sockets.Thin.C_Inet_Addr, Windows version): Remove useless Ada
wrapper and import inet_addr(3) from the standard sockets library
directly instead.
(In_Addr): Add alignment clause.
(GNAT.Sockets.Thin.Signalling_Fds): New procedure Close.
From-SVN: r125358
195 lines
9.8 KiB
Ada
195 lines
9.8 KiB
Ada
------------------------------------------------------------------------------
|
|
-- --
|
|
-- GNAT COMPILER COMPONENTS --
|
|
-- --
|
|
-- G N A T . S O C K E T S . C O N S T A N T S --
|
|
-- --
|
|
-- S p e c --
|
|
-- --
|
|
-- Copyright (C) 2000-2007, Free Software Foundation, Inc. --
|
|
-- --
|
|
-- GNAT is free software; you can redistribute it and/or modify it under --
|
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
|
-- ware Foundation; either version 2, or (at your option) any later ver- --
|
|
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
|
|
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
|
|
-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
|
|
-- for more details. You should have received a copy of the GNU General --
|
|
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
|
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
|
-- Boston, MA 02110-1301, USA. --
|
|
-- --
|
|
-- As a special exception, if other files instantiate generics from this --
|
|
-- unit, or you link this unit with other files to produce an executable, --
|
|
-- this unit does not by itself cause the resulting executable to be --
|
|
-- covered by the GNU General Public License. This exception does not --
|
|
-- however invalidate any other reasons why the executable file might be --
|
|
-- covered by the GNU Public License. --
|
|
-- --
|
|
-- GNAT was originally developed by the GNAT team at New York University. --
|
|
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
|
-- --
|
|
------------------------------------------------------------------------------
|
|
|
|
-- This package provides target dependent definitions of constant for use
|
|
-- by the GNAT.Sockets package (g-socket.ads). This package should not be
|
|
-- directly with'ed by an applications program.
|
|
|
|
-- This is the version for sparc-sun-solaris2.8
|
|
-- This file is generated automatically, do not modify it by hand! Instead,
|
|
-- make changes to gen-soccon.c and re-run it on each target.
|
|
|
|
package GNAT.Sockets.Constants is
|
|
|
|
--------------
|
|
-- Families --
|
|
--------------
|
|
|
|
AF_INET : constant := 2; -- IPv4 address family
|
|
AF_INET6 : constant := 26; -- IPv6 address family
|
|
|
|
-----------
|
|
-- Modes --
|
|
-----------
|
|
|
|
SOCK_STREAM : constant := 2; -- Stream socket
|
|
SOCK_DGRAM : constant := 1; -- Datagram socket
|
|
|
|
-------------------
|
|
-- Socket errors --
|
|
-------------------
|
|
|
|
EACCES : constant := 13; -- Permission denied
|
|
EADDRINUSE : constant := 125; -- Address already in use
|
|
EADDRNOTAVAIL : constant := 126; -- Cannot assign address
|
|
EAFNOSUPPORT : constant := 124; -- Addr family not supported
|
|
EALREADY : constant := 149; -- Operation in progress
|
|
EBADF : constant := 9; -- Bad file descriptor
|
|
ECONNABORTED : constant := 130; -- Connection aborted
|
|
ECONNREFUSED : constant := 146; -- Connection refused
|
|
ECONNRESET : constant := 131; -- Connection reset by peer
|
|
EDESTADDRREQ : constant := 96; -- Destination addr required
|
|
EFAULT : constant := 14; -- Bad address
|
|
EHOSTDOWN : constant := 147; -- Host is down
|
|
EHOSTUNREACH : constant := 148; -- No route to host
|
|
EINPROGRESS : constant := 150; -- Operation now in progress
|
|
EINTR : constant := 4; -- Interrupted system call
|
|
EINVAL : constant := 22; -- Invalid argument
|
|
EIO : constant := 5; -- Input output error
|
|
EISCONN : constant := 133; -- Socket already connected
|
|
ELOOP : constant := 90; -- Too many symbolic lynks
|
|
EMFILE : constant := 24; -- Too many open files
|
|
EMSGSIZE : constant := 97; -- Message too long
|
|
ENAMETOOLONG : constant := 78; -- Name too long
|
|
ENETDOWN : constant := 127; -- Network is down
|
|
ENETRESET : constant := 129; -- Disconn. on network reset
|
|
ENETUNREACH : constant := 128; -- Network is unreachable
|
|
ENOBUFS : constant := 132; -- No buffer space available
|
|
ENOPROTOOPT : constant := 99; -- Protocol not available
|
|
ENOTCONN : constant := 134; -- Socket not connected
|
|
ENOTSOCK : constant := 95; -- Operation on non socket
|
|
EOPNOTSUPP : constant := 122; -- Operation not supported
|
|
EPFNOSUPPORT : constant := 123; -- Unknown protocol family
|
|
EPROTONOSUPPORT : constant := 120; -- Unknown protocol
|
|
EPROTOTYPE : constant := 98; -- Unknown protocol type
|
|
ESHUTDOWN : constant := 143; -- Cannot send once shutdown
|
|
ESOCKTNOSUPPORT : constant := 121; -- Socket type not supported
|
|
ETIMEDOUT : constant := 145; -- Connection timed out
|
|
ETOOMANYREFS : constant := 144; -- Too many references
|
|
EWOULDBLOCK : constant := 11; -- Operation would block
|
|
|
|
-----------------
|
|
-- Host errors --
|
|
-----------------
|
|
|
|
HOST_NOT_FOUND : constant := 1; -- Unknown host
|
|
TRY_AGAIN : constant := 2; -- Host name lookup failure
|
|
NO_DATA : constant := 4; -- No data record for name
|
|
NO_RECOVERY : constant := 3; -- Non recoverable errors
|
|
|
|
-------------------
|
|
-- Control flags --
|
|
-------------------
|
|
|
|
FIONBIO : constant := -2147195266; -- Set/clear non-blocking io
|
|
FIONREAD : constant := 1074030207; -- How many bytes to read
|
|
|
|
--------------------
|
|
-- Shutdown modes --
|
|
--------------------
|
|
|
|
SHUT_RD : constant := 0; -- No more recv
|
|
SHUT_WR : constant := 1; -- No more send
|
|
SHUT_RDWR : constant := 2; -- No more recv/send
|
|
|
|
---------------------
|
|
-- Protocol levels --
|
|
---------------------
|
|
|
|
SOL_SOCKET : constant := 65535; -- Options for socket level
|
|
IPPROTO_IP : constant := 0; -- Dummy protocol for IP
|
|
IPPROTO_UDP : constant := 17; -- UDP
|
|
IPPROTO_TCP : constant := 6; -- TCP
|
|
|
|
-------------------
|
|
-- Request flags --
|
|
-------------------
|
|
|
|
MSG_OOB : constant := 1; -- Process out-of-band data
|
|
MSG_PEEK : constant := 2; -- Peek at incoming data
|
|
MSG_EOR : constant := 8; -- Send end of record
|
|
MSG_WAITALL : constant := 64; -- Wait for full reception
|
|
MSG_NOSIGNAL : constant := -1; -- No SIGPIPE on send
|
|
MSG_Forced_Flags : constant := 0;
|
|
-- Flags set on all send(2) calls
|
|
|
|
--------------------
|
|
-- Socket options --
|
|
--------------------
|
|
|
|
TCP_NODELAY : constant := 1; -- Do not coalesce packets
|
|
SO_REUSEADDR : constant := 4; -- Bind reuse local address
|
|
SO_KEEPALIVE : constant := 8; -- Enable keep-alive msgs
|
|
SO_LINGER : constant := 128; -- Defer close to flush data
|
|
SO_BROADCAST : constant := 32; -- Can send broadcast msgs
|
|
SO_SNDBUF : constant := 4097; -- Set/get send buffer size
|
|
SO_RCVBUF : constant := 4098; -- Set/get recv buffer size
|
|
SO_SNDTIMEO : constant := 4101; -- Emission timeout
|
|
SO_RCVTIMEO : constant := 4102; -- Reception timeout
|
|
SO_ERROR : constant := 4103; -- Get/clear error status
|
|
IP_MULTICAST_IF : constant := 16; -- Set/get mcast interface
|
|
IP_MULTICAST_TTL : constant := 17; -- Set/get multicast TTL
|
|
IP_MULTICAST_LOOP : constant := 18; -- Set/get mcast loopback
|
|
IP_ADD_MEMBERSHIP : constant := 19; -- Join a multicast group
|
|
IP_DROP_MEMBERSHIP : constant := 20; -- Leave a multicast group
|
|
|
|
-------------------
|
|
-- System limits --
|
|
-------------------
|
|
|
|
IOV_MAX : constant := 16; -- Maximum writev iovcnt
|
|
|
|
----------------------
|
|
-- Type definitions --
|
|
----------------------
|
|
|
|
-- Sizes (in bytes) of the components of struct timeval
|
|
|
|
SIZEOF_tv_sec : constant := 4; -- tv_sec
|
|
SIZEOF_tv_usec : constant := 4; -- tv_usec
|
|
|
|
----------------------------------------
|
|
-- Properties of supported interfaces --
|
|
----------------------------------------
|
|
|
|
Need_Netdb_Buffer : constant := 1; -- Need buffer for Netdb ops
|
|
|
|
----------------------
|
|
-- Additional flags --
|
|
----------------------
|
|
|
|
Thread_Blocking_IO : constant Boolean := True;
|
|
-- Set False for contexts where socket i/o are process blocking
|
|
|
|
end GNAT.Sockets.Constants;
|