Create in a root directory (Linux)

Create in a root directory (Linux)

[comicfanzine]

Hi ,
I want to create a file in a root directory : "/"
And of course i am root . How can i proceed ? i always get the error : "permission denied" .

Here is the code that i tried :

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

PROCEDURE TestFichier IS

   MonFichier : File_type ; 
   
BEGIN 
   Create( MonFichier,Name => " /clone.adb");
   close(MonFichier);
END TestFichier ;

Re: Create in a root directory (Linux)

[Simon Wright]

comicfanzine@gmail.com writes:

> Hi ,
> I want to create a file in a root directory : "/"
> And of course i am root . How can i proceed ? i always get the error :
> "permission denied" .
>
> Here is the code that i tried :
>
> [code]WITH Ada.Text_IO ;  USE Ada.Text_IO ; 
>
> PROCEDURE TestFichier IS
>
>    MonFichier : File_type ; 
>    
> BEGIN 
>    Create( MonFichier,Name => " /clone.adb");
>    close(MonFichier);
> END TestFichier ;

What OS? which compiler?

I tried this on OS X and got Name_Error because of that extra space in
the name.

Fixed that; all OK now. So I don't know. (I do know that creating files
in your root directory is likely to be a Bad Idea).

Re: Create in a root directory (Linux)

[Paul Rubin]

Simon Wright <simon@pushface.org> writes:
>>    Create( MonFichier,Name => " /clone.adb");

The problem is the leading space before the /

Re: Create in a root directory (Linux)

[comicfanzine]

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

Re: Create in a root directory (Linux)

[comicfanzine]

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 /

I use Linux = Ubuntu .
My fault i have not paste the code right , in fact the code whas without the space already :

WITH Ada.Text_IO ;  USE Ada.Text_IO ; 

PROCEDURE TestFichier IS

   MonFichier : File_type ; 
   
BEGIN 
   Create( MonFichier,Name => "/clone.adb");
   Close(MonFichier);
END TestFichier ;
[/code]I got the error :
raised ADA.IO_EXCEPTIONS.USE_ERROR : /clone.adb: Permission denied

Then how can i be recognize as "root" for create my file in this directory .

Re: Create in a root directory (Linux)

[comicfanzine]

Le mercredi 28 octobre 2015 18:31:29 UTC+1, comicf...@gmail.com a écrit :
> Hi ,
> I want to create a file in a root directory : "/"
> And of course i am root . How can i proceed ? i always get the error : "permission denied" .
> 
> Here is the code that i tried :
> 
> [code]WITH Ada.Text_IO ;  USE Ada.Text_IO ; 
> 
> PROCEDURE TestFichier IS
> 
>    MonFichier : File_type ; 
>    
> BEGIN 
>    Create( MonFichier,Name => " /clone.adb");
>    close(MonFichier);
> END TestFichier ;

Solved ! The solution was to execute the program in the terminal with "sudo" . That didn't work because i had execute the program from scite(my IDE) , and he don't recognize sudo .

Re: Create in a root directory (Linux)

[Kevin K]

The simple solution.  I had assumed you were already running as root, or I would have suggested that.

Re: Create in a root directory (Linux)

[M. Strobel]

On 29.10.2015 08:00, comicfanzine@gmail.com wrote:
> Le mercredi 28 octobre 2015 18:31:29 UTC+1, comicf...@gmail.com a écrit :
>> Hi ,
>> I want to create a file in a root directory : "/"
>> And of course i am root . How can i proceed ? i always get the error : "permission denied" .
>>
>> Here is the code that i tried :
>>
>> [code]WITH Ada.Text_IO ;  USE Ada.Text_IO ; 
>>
>> PROCEDURE TestFichier IS
>>
>>    MonFichier : File_type ; 
>>    
>> BEGIN 
>>    Create( MonFichier,Name => " /clone.adb");
>>    close(MonFichier);
>> END TestFichier ;
> 
> Solved ! The solution was to execute the program in the terminal with "sudo" . That didn't work because i had execute the program from scite(my IDE) , and he don't recognize sudo .
> 

And, by the way, as an admin on Linux I would (in general) never allow such files on
my systems' root directory. There are quite some "standards" and a lot of best
practices telling where putting which files is best done.

/Str.