pass a argument to spawn

[comicfanzine@gmail.com]

Hi , i'm trying to do a simple " ls -a " , on Ubuntu .

I tried to associate a string value , because :

   subtype Argument_List is String_List;

But it failed .

Anyway , i'm lost with all the types and subtypes in GNAT.OS_Lib and System.Strings .

So , i don't know how to proceed in the simplier way .

WITH GNAT.OS_Lib ;	USE GNAT.OS_Lib ;
WITH Ada.Text_IO ;	USE Ada.Text_IO ;

procedure console_Ada is

    state_spawn : boolean ;

    arg : Argument_List ( 1..1 ) ;
    -- here the value must be "-a" .

begin

    new_line ;

    put_line ( " Print of your files :") ;

    new_line ;

	Spawn ( "/bin/ls" , arg , state_spawn );
    -- /bin/ls -a

    new_line ;

    put ( " Execution of the program with Spawn ?  : " & Boolean'Image( state_spawn ) ) ;

end console_Ada ;