Re: How to reset 'end_error' using text_io?

[anagld!aplcen.apl.jhu.edu!ddsdx2.jhuapl.edu!dlc@uunet.uu.net (Dave Colla rd x7468)]

In <25h05c$3lv@neomimsy.cs.umd.edu> alex@cs.umd.edu (Alex Blakemore) writes:

>In article <fmoore.8@dseg.ti.com> fmoore@dseg.ti.com (Freeman L. Moore) writes
:
>> So, how can io_exceptions.end_error on standard input be cleared
>> permitting subsequent GETs to continue reading?

>text_io.skip_line I believe.

nope.  end_error means end of file -- skip_line just skips to the 
next line.

The following works, though vax specific:

  open(file => f,mode => in_file, name => "SYS$OUTPUT");
  loop
    begin
      get_line(f, buf, last);
      put_line("got " & buf(1..last));
    exception
      when end_error => 
        close(f);
        open(file => f,mode => in_file, name => "SYS$OUTPUT");
    end;
  end loop;

instead of sys$output you could use text_io.name(text_io.standard_output)
which might be more portable

--Thor
dlc@ddsdx2.jhuapl.edu