Re: Get_Line vs Adasockets

[Dale Stanbrough <dale@cs.rmit.edu.au>]

In article <8n6cbc$9ge$1@news.tpi.pl>, "Ultor" <ultor@hert.org> wrote:

> Hello
> 
> I'm new in ADA (code since Friday). I got a problem with Get_Line in my
> source. I tried to make it working over 2 hours and still got a problem 
> with
> that.
> 
> When i did Get_Line like this
> 
>    BUF := Get_Line(Incoming_Socket);
> 
> then I had problem with CONSTRAINT_ERROR. I don't know how to set size of
> BUF to be the same as line from Get_Line (as I know that should eliminate
> CONSTRAINT_ERROR).
> 
> I would be very gratefull if some1 could correct my source.

if you assign one array to another, and they are not the same length you 
get a constraint error.



[stuff deleted]
> 
>         Get_Line(Incoming_Socket,Buf,Buf'Size);
>         if BUF(1..Buf'Length)="QUIT"


this will -never- work because a 500 character string can never equal a 
4 char string.

try  
   if Buf (1..4) = "QUIT" then





...and i can't see a return statement in your function.


Dale