Re: Ada Thread Termination

[gpriv@axonx.com]

On Feb 2, 2:41 pm, shaunpatter...@gmail.com wrote:
> I have a socket listening thread that I would like to be able to
> terminate via a select call.
>
> task body Socket_Listener is
>   begin
>      accept Initialize do
>            -- setup
>      end Initialize;
>
>      loop
>            Listen_For_Message;
>      end loop;
>   end Socket_Listener
>
> I would like to have another accept statement inside the loop to break
> out of the loop.
>
> Listen_For_Message is actually a call to a blocking socket read, so
> the call may not finish if nothing else comes through the socket. I'm
> not sure how to structure this thread so it can be terminated on
> demand.
>
> Any ideas?
>
> Thanks
>
> --
> Shaun

In addition to what Dmintry has suggested you may consider setting
receive timeout when opening the socket.

task body socket_listener is
begin
    select
       accept initialize ...
    or
       terminate;
    end select;

    while socket_is_open loop

       select
          accept close_connection do
              gracefully close socket here
          end close_connection
       else
          listen_for_message_ignore_timeouts...
       end select;

    end loop;

end socket_listener;

be aware that there is a bug in windows: socket timeouts are
interpreted in milliseconds

Regards,

George Privalov