Re: Need help creating a multi client TCP server with Ada

[alex.aanis@gmail.com]

On Friday, February 7, 2014 9:48:27 AM UTC+1, Jacob Sparre Andersen wrote:
> alex.aanis@gmail.com writes:
> 
> 
> 
> > Yes, I now can can store the channels. However I still can't connect
> 
> > more than one client. Is there something wrong with my listener task:
> 
> >
> 
> >  task body listenerTask is
> 
> >   status      : Sockets.Selector_Status;
> 
> >   Client      : Sockets.Sock_Addr_Type;
> 
> >   Connection  : Sockets.Socket_Type;
> 
> >   channel      : Sockets.Stream_Access;
> 
> >   
> 
> >  begin
> 
> >   loop
> 
> >    Sockets.Accept_Socket (
> 
> > 			  Server  => Receiver,
> 
> > 			  Socket  => Connection,
> 
> > 			  Address => Client,
> 
> > 			  timeout => 30.0,
> 
> > 			  Status  => status
> 
> > 			 );
> 
> >
> 
> >    channel := Sockets.Stream (Connection);
> 
> >    channels.Append (channel);
> 
> >
> 
> >   end loop;
> 
> >  end;
> 
> 
> 
> It looks like it might work.  Have you set up your receiver correctly?
> 
> Where are the connections processed?  It appears that "Channels" is a
> 
> global variable.  Have you made sure to make it protected?
> 
> 
> 
> You may want to add an exception handler to your listener task for
> 
> reporting any exceptions in the task.
> 
> 
> 
> It would be nice if you could adhere to the style described in the Ada
> 
> Quality and Style Guide (indentation, labels after "end", identifiers).
> 
> 
> 
> Greetings,
> 
> 
> 
> Jacob
> 
> -- 
> 
> "Computer Science is to Science, as Plumbing is to Hydrodynamics"



Thank you Jacob for replying. And thanks for the Ada style guidelines. Im at chapter 3 now. 
Could you please see my code here on Github: http://goo.gl/GaO2a3. The folder is called "TCP Communication". 

I've read about protected. But didn't quite understand it. How may I use protected types within a task?