Ada Thread Termination

[shaunpatterson@gmail.com]

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