Re: Terminating a task

["Robert I. Eachus" <rieachus@attbi.com>]

Matthew Heaney wrote:

> Here is a simplified version of the program, which closely follows the
> gcc example:
> 
> 
> with Ada.Text_IO;            use Ada.Text_IO;
> with Ada.Characters.Latin_1; use Ada.Characters;
> with Ada.Integer_Text_IO;    use Ada.Integer_Text_IO;
> 
> procedure WC is
> 
>    Line  : String (1 .. 133);
>    Last  : Natural;
>    
>    NL, NW, NC : Integer'Base := 0;
>    
>    Word : Boolean := False;
> 
> begin
> 
>    while not End_Of_File loop
>    
>       Get_Line (Line, Last);
>       
>       NC := NC + Last;
>             
>       for I in Line'First .. Last loop
>          if Line (I) = Latin_1.Space or Line (I) = Latin_1.HT then
>             Word := False;
>             
>          elsif not Word then
>             Word := True;
>             NW := NW + 1;
>             
>          end if;
>       end loop;
>       
>       if Last < Line'Last then
>          Word := False;
>          NL := NL + 1;
>       end if;
>       
>    end loop;    
>    
>    Put ("NL="); Put (NL, Width => 0); New_Line;
>    Put ("NW="); Put (NW, Width => 0); New_Line;
>    Put ("NC="); Put (NC, Width => 0); New_Line;
>    
> end WC;

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.  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.  Notice that with these 
changes your program should work fine even if you set Line to 
String(1..10);

-- 

                                                        Robert I. Eachus

�In an ally, considerations of house, clan, planet, race are 
insignificant beside two prime questions, which are: 1. Can he shoot? 2. 
Will he aim at your enemy?� -- from the Laiden novels by Sharon Lee and 
Steve Miller.