Re: how to designate standard input from another file

["Jean-Pierre Rosen" <rosen.adalog@wanadoo.fr>]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 690 bytes --]


Terry Westley <twestley@buffalo.veridian.com> a �crit dans le message : amQ_4.2$m22.237@wdc-read-01.qwest.net...
> Something like this would be nice except that File_Type is
> limited private:
>
> declare
>    File : Ada.Text_IO.File_Type;
> begin
>    if File_Name = "-" then
>       File := Ada.Text_IO.Standard_Input;
>    else
>       Ada.Text_IO.Open (File, In_File, File_Name);
>    end if;
> end;
>
Do it the other way round, i.e. read from Standard_Input, and redirect it if necessary:
 declare
    File : Ada.Text_IO.File_Type;
 begin
    if File_Name /= "-" then
       Ada.Text_IO.Open (File, In_File, File_Name);
       Ada.Text_IO.Set_Input (File);
    end if;
 end;