Using Check_Selector ...

["mferracini" <maurizio.ferracini@gmail.com>]

an other litte problem with non-blocking socket....

here the code

server:
-------------------------------
........
      Accept_Socket (Server, Socket, Address);
      Ada.Text_Io.Put_Line ("new connection");
      Set(Rset, Socket);
      Create_Selector(Selector);

      begin
         loop
            Check_Selector(Selector, Rset, Wset, Status, 0.5);
            if (Status /= Expired ) then
               Receive_Socket(Socket,Message,Last);
               Ada.Text_Io.Put_Line("read something");
            else
               Ada.Text_Io.Put(".");
            end if;
         end loop;
      end;
-------------------------------
client:
-------------------------------
.........
  loop
      Buffer(1):=42;
      Send_Socket(Handle,Buffer,Sk_Last);
      Ada.Text_Io.Put_Line("OK");
      delay(1.0);
   end loop;
-------------------------------

the problem is : when programs start, the server read only the first
time.

---
new connection
read someting
............................................................
--

an hint?