Re: File manipulations in Ada.Text_IO

[Gautier Write-only <gautier@fakeaddress.nil>]

Zheng Wang:

>     Hi,
> 
>   I would like to ask a simple question about Ada.Text_IO, please.
> How could we check if a file exists or not? I mean is there a function
> or procedure that takes a File_Type/File_Name and returns true if the
> File exists, otherwise return false.
>   Many thanks in advance.

You mean something like that ?

with Ada.Text_IO;
--
  function Exist(name:String) return Boolean is
    use Ada.Text_IO;
    f: File_Type;
  begin
    Open(f,in_file,name);
    Close(f);
    return True;
  exception
    when Name_Error => return False;
  end Exist;
______________________________________________________________
Gautier     --     http://www.mysunrise.ch/users/gdm/index.htm
Ada programming -- http://www.mysunrise.ch/users/gdm/gsoft.htm

NB: For a direct answer, e-mail address on the Web site!