Re: Terminating a task

["Matthew Heaney" <matthewjheaney@earthlink.net>]

"Robert I. Eachus" <rieachus@attbi.com> wrote in message
news:3F148227.6060702@attbi.com...
>
> If you change:
>         if Last < Line'Last then...
>
> to:
>         if End_of_Line then
>            Word := False;
>            NL := NL + 1;
>         end if;
>
> maybe that will end the 'discussion' about whether it is possible to
> count lines properly in Ada.

Why should this make a difference?  The idiom in my example is per Ada83
AI-50.

What does End_Of_Line do, that Last < Line'Last does not?


>Oh, you might want to stick:
>
>      exit when End_of_File;
>
> after the call to Get_Line.  Of course the need to do that or not
> depends on the number of lines and characters you want to count for the
> implict End_of_Page at the end of the file.

The canonical wc program in the shootout seems to count the line terminator
among the count of characters.  The program I posted does not.  To make the
outputs match all you'd need to do is add the line count to the character
count, to make up the difference.

Other than that, given the input.txt file at the shootout page, the wc
program I posted gives the correct results.  So I'm not sure why anyone
thinks there is a problem.  Except for the interpretation of character
count, as far as I can tell the program I wrote is correct as is.

> Notice that with these
> changes your program should work fine even if you set Line to
> String(1..10);

But that's true even without your changes.  In fact before I posted the
program, I tested it using String (1 .. 5) as the subtype indication, and it
worked fine.

-Matt