Re: Trouble with TEXT_IUO on WinNT

Re: Trouble with TEXT_IUO on WinNT

[Matthew J Heaney]

Alfred Hilscher <Alfred.Hilscher@icn.siemens.de> writes:

Don't use End_Of_Line.  To determine whether you've read all of the
current line, do this:

  Line : String (1 .. 255);
  Last : Natural;
begin

  Get_Line (Line, Last);

  if Last < Line'Last then
    --yes, we've read the entire line
  else
    --no, we have not read the entire line
  end if;


To iterate through a file comprising lines of text, where the maximum
length of lines isn't known, then you can do this:

declare
   function Get_Line return String is
     Line : String (1 .. 256);
     Last : Natural;
   begin
     Get_Line (Line, Last);

     if Last < Line'Last then
        return Line (1 .. Last);
     else
        return Line & Get_Line;
     end if;
begin
   while not End_Of_File loop
   declare
      Line : constant String := Get_Line;
   begin
      <do something with Line>
   end;
   end loop;
end;


If you don't understand why you shouldn't use End_of_Line, then surf the
AdaPower website for the article I wrote re the "Get_Line mystery."

<http://www.adapower.com/lang/get_line.html>

Re: Trouble with TEXT_IUO on WinNT

[Alfred Hilscher]

Ups, I did End_Of_Line - this should be End_Of_File. Thanks for this
hint. I think I have to clean my glasses. <g>



Matthew J Heaney wrote:
> 
> Don't use End_Of_Line.  To determine whether you've read all of the
> current line, do this:

No, thats not what I want. I want skip empty and blank lines (the
End_Of_Line should be an End_Of_File to avoid an END_ERROR exception, I
mistyped it :-().


> If you don't understand why you shouldn't use End_of_Line, then surf the
> AdaPower website for the article I wrote re the "Get_Line mystery."

Thats not the problem. The problem was, that I did an End_Of_Line where
it should be an End_Of_File.