Re: alternative for buggy accept_socket to create a non-blocking version

["Björn Lundin" <b.f.lundin@gmail.com>]

On 2017-10-25 19:23, Matt Borchers wrote:

> Does anybody know of a good way to create a type of non-blocking accept_socket?

put the socket in select (the socket function - not tasking) with a
timeout of 2 secs (in the readable set)
if select times out, you get 0 as retrun value,
 if select returns > 0 you have someone trying to connect.
You can then call accept and know it will not be blocking.

You may have to pragma import select
(And I hope it works with gnat.sockets)

looking into
<https://www2.adacore.com/gap-static/GNAT_Book/html/rts/g-socket__ads.htm>

  procedure Check_Selector

seem to be exactly this



> 
> My code basically is:
> 
> with GNAT.Sockets; use GNAT.Sockets;
> ...
> declare
>   sock,
>   socket   : SOCKET_TYPE;
>   address  : SOCK_ADDR_TYPE;
>   data     : STREAM_ELEMENT_ARRAY(1..256);
>   last     : STREAM_ELEMENT_OFFSET;
>   sel_stat : SELECTOR_STATUS;
> begin
>   create_socket( socket );
>   bind_socket( socket, address );
>   listen_socket( socket );
>   accept_socket( socket, sock, address );
>   --I wish I could do this
>   --accept_socket( socket, sock, address, timeout => 2.0, status => sel_stat );
>   ...
>   loop
>     receive_socket( sock, data, last );
>     ...
>   end loop;
>   close_socket( socket );
> end;
> 
> Thanks,
> Matt
> 


-- 
--
Björn