with Ada.Text_IO, VStrings;
package English_Lexer is
------------------------------------------------------------------------
--| Simple English Lexical Scanner
--| Author: Michael B. Feldman, The George Washington University 
--| Last Modified: January 1996                                     
------------------------------------------------------------------------

  MaxWordSize : constant Positive := 20;
  subtype WordType is VStrings.VString(MaxLength => MaxWordSize);

  procedure GetWord (F    : in Ada.Text_IO.File_Type;
             Word   : out WordType;
             Success: out Boolean;
             EOL    : out Boolean;
             EOF    : out Boolean);
  -- Pre:  F is defined
  -- Post: reads the next simple English word from F, returning
  --   it in Word. Success is True if and only if Word is non-empty.
  --   EOL is True if and only if the end of the current line was 
  --   reached; EOF is true if and only if end of file was reached.

end English_Lexer;