ADA, Language Topics, TEXT_IO, SET_INPUT
*Conan The Librarian
procedure SET_INPUT(FILE : in FILE_TYPE); Operates on a file of mode IN_FILE. Sets the current default input file to FILE. The exception STATUS_ERROR is raised if the given file is not open. The exception MODE_ERROR is raised if the mode of the given file is not IN_FILE.