Re: Terminating a task

[mheaney@on2.com (Matthew Heaney)]

Craig Carey <research@ijs.co.nz> wrote in message news:<ubs4hv4eaar8hbmr2vut59ananvsuvra9a@4ax.com>...
> 
> PS. The new "Computer Language Shootout" website now has Ada. 
> 
>    http://dada.perl.it/shootout/index.html
> 
> My "wc" word count program got eliminated probably since the tester
> could not link in Win32 "_setmode" and "_read". (Ada 95 packages do not
> allow accurate reading from the standard input). 


Your word count program got eliminated because it is junk.

I have no idea what you mean about not being able to accurately read
from standard input.

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;

-Matt