Add TCP_NODELAY flag

src/sockets.ads - At type Socket_Option add value TCP_NODELAY src/sockets.adb - Add element for new Socket_Option value TCP_NODELAY in constant arrays Socket_Option_Match and Socket_Option_Size
samueltardieu · Aug 2, 2014 · db8431b · db8431b
1 parent b532e94
commit db8431b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/src/sockets.adb b/src/sockets.adb
@@ -6,7 +6,7 @@
 --                                                                         --
 --                                B o d y                                  --
 --                                                                         --
---          Copyright (C) 1998-2011 Samuel Tardieu <sam@rfc1149.net>       --
+--          Copyright (C) 1998-2013 Samuel Tardieu <sam@rfc1149.net>       --
 --                 Copyright (C) 1999-2003 Télécom ParisTech               --
 --                                                                         --
 --   AdaSockets is free software; you can  redistribute it and/or modify   --
@@ -80,7 +80,8 @@ package body Sockets is
       SO_KEEPALIVE       => Constants.So_Keepalive,
       TCP_KEEPCNT        => Constants.Tcp_Keepcnt,
       TCP_KEEPIDLE       => Constants.Tcp_Keepidle,
-      TCP_KEEPINTVL      => Constants.Tcp_Keepintvl);
+      TCP_KEEPINTVL      => Constants.Tcp_Keepintvl,
+      TCP_NODELAY        => Constants.Tcp_Nodelay);
 
    Socket_Option_Size  : constant array (Socket_Option) of Natural :=
      (SO_REUSEADDR       => 4,
@@ -94,7 +95,8 @@ package body Sockets is
       SO_KEEPALIVE       => 4,
       TCP_KEEPCNT        => 4,
       TCP_KEEPIDLE       => 4,
-      TCP_KEEPINTVL      => 4);
+      TCP_KEEPINTVL      => 4,
+      TCP_NODELAY        => 4);
 
    CRLF : constant String := CR & LF;
 

diff --git a/src/sockets.ads b/src/sockets.ads
@@ -6,7 +6,7 @@
 --                                                                         --
 --                                S p e c                                  --
 --                                                                         --
---          Copyright (C) 1998-2011 Samuel Tardieu <sam@rfc1149.net>       --
+--          Copyright (C) 1998-2013 Samuel Tardieu <sam@rfc1149.net>       --
 --                 Copyright (C) 1999-2003 Télécom ParisTech               --
 --                                                                         --
 --   AdaSockets is free software; you can  redistribute it and/or modify   --
@@ -95,7 +95,7 @@ package Sockets is
                           IP_ADD_MEMBERSHIP, IP_DROP_MEMBERSHIP,
                           IP_MULTICAST_LOOP, SO_SNDBUF, SO_RCVBUF,
                           SO_KEEPALIVE, TCP_KEEPCNT, TCP_KEEPIDLE,
-                          TCP_KEEPINTVL);
+                          TCP_KEEPINTVL, TCP_NODELAY);
 
    procedure Getsockopt
      (Socket  :  Socket_FD'Class;