Re: How to reset 'end_error' using text_io?

[cis.ohio-state.edu!pacific.mps.ohio-state.edu!math.ohio-state.edu!howland .reston.ans.net!darwin.sura.net!source.asset.com!shilling@ucbvax.Berkeley.EDU (Keith Shillington)]

(Many educated and honorable persons) write:
>>> So, how can io_exceptions.end_error on standard input be cleared
>>> permitting subsequent GETs to continue reading?
(And many other elided conversations)

The problem being that
  Text_IO.End_Of_File
has become true.  This is equivalent to
  Text_IO.End_Of_File(Current_Input)
                      -- originally defaulted to Text_IO.Standard_Input
So, lets assume that we have an F such that
  F : Text_IO.File_Type;
If we are to
  Text_IO.Open(F,Text_IO.In_Mode,"SYS$INPUT");
  Text_IO.Set_Input(F);
Then the desired result is achieved.  Of course for a more portable
solution, "SYS$INPUT" is replaced by a constant defined in a system
specific package...

--/*No Problem*/--

-- 
  Keith Shillington               /---------\   "No matter where you go,
email: shilling@source.ASSET.com   /=======\     There you are."
voice: (619) 944-5134               /_____\          -- Buckaroo Banzaii
fax  : (619) 944-7089                 | |         office: (301) 924-0050