From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-0.9 required=3.0 tests=BAYES_00,FROM_ADDR_WS
	autolearn=no autolearn_force=no version=3.4.5-pre1
Date: 26 Aug 93 20:42:15 GMT
From: anagld!aplcen.apl.jhu.edu!ddsdx2.jhuapl.edu!dlc@uunet.uu.net  (Dave Colla
rd x7468)
Subject: Re: How to reset 'end_error' using text_io?
Message-ID: <1993Aug26.204215.6284@aplcen.apl.jhu.edu>
List-Id: <comp.lang.ada>

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