[Ada] Add Ada.[Wide_[Wide_]]Reset_Standard_Files

[Arnaud Charlet <charlet at adacore dot com>]

Add new child procedures Ada.[Wide_[Wide_]]Reset_Standard_Files. Also
reorganize Ada.[Wide_[Wide]]Text_IO to clean up private parts which had
several routines which should be in the body.

The purpose of the Reset_Standard_Files routine is to provide a
facility to reset the standard files if their status changes during
execution. In particular in embedded environments this may happen
on an image restart, and for example Standard_Input may be changed
from/to being interactive. Since the status was previously caught
at elaboration time, there was no way of reflecting this change.
Now a call to the Reset_Standard_Files procedure can be made at
the appropriate point (e.g. as part of the restart procedure).

No test is required, since except in an unusual embedded restart
situation, this procedure call has no effect.

Tested on x86_64-pc-linux-gnu, committed on trunk

2009-10-28  Robert Dewar  <dewar@adacore.com>

	* a-ztexio.adb, a-ztexio.ads, a-witeio.ads, a-witeio.adb,
	a-textio.ads, a-textio.adb: Reorganize (moving specs from private part
	to body).
	(Initialize_Standard_Files): New procedure.
	* a-tienau.adb: Minor change to make EOF directly visible
	* a-tirsfi.ads, a-wrstfi.adb, a-wrstfi.ads, a-zrstfi.adb,
	a-zrstfi.ads, a-tirsfi.adb: New unit, initial version.
	* gnat_rm.texi: Add documentation for
	Ada.[Wide_[Wide_]]Text_IO.Reset_Standard_Files.
	* Makefile.rtl: Add entries for
	Ada.[Wide_[Wide_]]Text_IO.Reset_Standard_Files

Attachment: difs
Description: Text document