Re: how to read a file into a array???

[devine@linuxmail.org (devine)]

This is what I have so far:
WITH Ada.Text_IO;
WITH Ada.Integer_Text_IO;
PROCEDURE Test IS
  
  FileName : String(1..80);  
  MaxName : CONSTANT Positive := 80;
  SUBTYPE NameRange IS Positive RANGE 1..MaxName;
  Length   : NameRange; 
  InFile   : Ada.Text_IO.File_Type;
  y: integer;     
  Max : CONSTANT Integer := 999999;
  SUBTYPE Size IS Integer RANGE 0..Max;
  TYPE TestArray IS ARRAY (Size) OF Character;
  X : TestArray;
  
  BEGIN

  Ada.Text_IO.Put (Item => "Enter the name of the file > ");
  Ada.Text_IO.Get_Line(Item => FileName, Last => Length);
  Ada.Text_IO.New_Line;
  Ada.Text_IO.Open(File => InFile, Mode => Ada.Text_IO.In_File, Name
=> FileName(1..Length));
  
  Y:=0;
  LOOP  
  EXIT WHEN Ada.Text_IO.End_Of_File(InFile); 
  Y:=Y+1;   
  Ada.Text_IO.Get(File => InFile, Item => X(Y));
  Ada.Text_IO.New_Line;         
  END LOOP;
  
   Ada.Integer_Text_IO.Put(y);
   
END Test;

This is what I was playing around with.  How can I change it so that
it reads the file and each word is read instead of each character?  i
put character at the top because i wasn't sure what to put their.  I
will need something that checks for the whitespace inbetween the words
right?