Re: Create in a root directory (Linux)

[comicfanzine@gmail.com]

Le jeudi 29 octobre 2015 00:01:49 UTC+1, Paul Rubin a écrit :
> Simon Wright <simon@pushface.org> writes:
> >>    Create( MonFichier,Name => " /clone.adb");
> 
> The problem is the leading space before the /

My fault i have not paste the code right , in fact the code whas without the space :

[code]WITH Ada.Text_IO ;  USE Ada.Text_IO ; 

PROCEDURE TestFichier IS

   MonFichier : File_type ; 
   
BEGIN 
   Create( MonFichier,Name => "/clone.adb");
  if Is_Open (MonFichier) then
   Put (Item => "Le fichier , ouvert ? : ", File => MonFichier);
end if;
END TestFichier ;[code/]
 I got the error : raised ADA.IO_EXCEPTIONS.USE_ERROR : /clone.adb: Permission denied