Re: Newbie Question: using Text_IO.Open() to read from standard input

[tmoran@acm.org]

>> to use things from ARM 10.3 "Default Input, Output, and Error Files".
>...
>These procedures read from Current_Input rather than Standard_Input to allow a
>program to read from a file if one if provided and from Standard_Input if not:
  Also, sometimes you have code that takes a file, eg
    procedure Process_Data(F : in Ada.Text_IO.File_Type) is ...
and you want to call it with a named file or with Standard Input
    Default_Data : Ada.Text_IO.File_Type;
  begin
    if ... then
      Process_Data(Ada.Text_IO.Standard_Input);
    else
      Ada.Text_IO.Open(Default_Data, ...
      Process_Data(Default_Data);
      Ada.Text_IO.Close(Default_Data);
    end if;