------------------------------------------------------------------------------
--                                                                          --
--                         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-2003 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,  59 Temple Place - Suite 330,  Boston, --
-- MA 02111-1307, 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 Alpha/VMS

package GNAT.Sockets.Constants is

   --------------
   -- Families --
   --------------

   AF_INET            : constant :=            2; --  IPv4 address family
   AF_INET6           : constant :=           26; --  IPv6 address family

   -----------
   -- Modes --
   -----------

   SOCK_STREAM        : constant :=            1; --  Stream socket
   SOCK_DGRAM         : constant :=            2; --  Datagram socket

   -------------------
   -- Socket errors --
   -------------------

   EACCES             : constant :=           13; --  Permission denied
   EADDRINUSE         : constant :=           48; --  Address already in use
   EADDRNOTAVAIL      : constant :=           49; --  Cannot assign address
   EAFNOSUPPORT       : constant :=           47; --  Addr family not supported
   EALREADY           : constant :=           37; --  Operation in progress
   EBADF              : constant :=            9; --  Bad file descriptor
   ECONNABORTED       : constant :=           53; --  Connection aborted
   ECONNREFUSED       : constant :=           61; --  Connection refused
   ECONNRESET         : constant :=           54; --  Connection reset by peer
   EDESTADDRREQ       : constant :=           39; --  Destination addr required
   EFAULT             : constant :=           45; --  Bad address
   EHOSTDOWN          : constant :=           64; --  Host is down
   EHOSTUNREACH       : constant :=           65; --  No route to host
   EINPROGRESS        : constant :=           36; --  Operation now in progress
   EINTR              : constant :=            4; --  Interrupted system call
   EINVAL             : constant :=           22; --  Invalid argument
   EIO                : constant :=            5; --  Input output error
   EISCONN            : constant :=           56; --  Socket already connected
   ELOOP              : constant :=           62; --  Too many symbolic lynks
   EMFILE             : constant :=           24; --  Too many open files
   EMSGSIZE           : constant :=           40; --  Message too long
   ENAMETOOLONG       : constant :=           63; --  Name too long
   ENETDOWN           : constant :=           50; --  Network is down
   ENETRESET          : constant :=           52; --  Disconn. on network reset
   ENETUNREACH        : constant :=           51; --  Network is unreachable
   ENOBUFS            : constant :=           55; --  No buffer space available
   ENOPROTOOPT        : constant :=           42; --  Protocol not available
   ENOTCONN           : constant :=           57; --  Socket not connected
   ENOTSOCK           : constant :=           38; --  Operation on non socket
   EOPNOTSUPP         : constant :=           95; --  Operation not supported
   EPFNOSUPPORT       : constant :=           46; --  Unknown protocol family
   EPROTONOSUPPORT    : constant :=           43; --  Unknown protocol
   EPROTOTYPE         : constant :=           41; --  Unknown protocol type
   ESHUTDOWN          : constant :=           58; --  Cannot send once shutdown
   ESOCKTNOSUPPORT    : constant :=           44; --  Socket type not supported
   ETIMEDOUT          : constant :=           60; --  Connection timed out
   ETOOMANYREFS       : constant :=           59; --  Too many references
   EWOULDBLOCK        : constant :=           35; --  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 :=     16#FFFF#; --  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

   --------------------
   -- Socket options --
   --------------------

   TCP_NODELAY        : constant :=            1; --  Do not coalesce packets
   SO_SNDBUF          : constant :=     16#1001#; --  Set/get send buffer size
   SO_RCVBUF          : constant :=     16#1002#; --  Set/get recv buffer size
   SO_REUSEADDR       : constant :=     16#0004#; --  Bind reuse local address
   SO_KEEPALIVE       : constant :=     16#0008#; --  Enable keep-alive msgs
   SO_LINGER          : constant :=     16#0080#; --  Defer close to flush data
   SO_ERROR           : constant :=     16#1007#; --  Get/clear error status
   SO_BROADCAST       : constant :=     16#0020#; --  Can send broadcast msgs
   IP_ADD_MEMBERSHIP  : constant :=           12; --  Join a multicast group
   IP_DROP_MEMBERSHIP : constant :=           13; --  Leave a multicast group
   IP_MULTICAST_TTL   : constant :=           10; --  Set/get multicast TTL
   IP_MULTICAST_LOOP  : constant :=           11; --  Set/get mcast loopback

end GNAT.Sockets.Constants;
