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=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: 27 Aug 93 15:22:53 GMT
From: 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)
Subject: Re: How to reset 'end_error' using text_io?
Message-ID: <1993Aug27.152253.11454@source.asset.com>
List-Id: <comp.lang.ada>

(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