agpl_1.0.0_b5da3320/src/agpl-socket_utils.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
with Gnat.Sockets;

package Agpl.Socket_Utils is

   function Read_Line (Sock : Gnat.Sockets.Socket_Type) return String;
   --  Read a line from a socket until \0x0a is read
   --  No 0x13 are expected to be seen...

   procedure Skip_Line (Sock : Gnat.Sockets.Socket_Type);

end Agpl.Socket_Utils;