Re: Newbie GNAT question

[sk <noname@myob.com>]

Oops ... the ghost of RD got me so I had to fix it :-)

---------------------------------------------------------------

with Gnat.Os_Lib;

procedure GOSL_Test is

     Ok : Boolean := False;

begin

     -- Method One.
     declare
         Cmd  : constant String := "/bin/ls";
         Args : constant Gnat.Os_Lib.Argument_List := (
             Gnat.Os_Lib.Argument_String_To_List ("-al").All
         );
         Success : Boolean := False;
     begin
         Gnat.Os_Lib.Spawn (Cmd, Args, Success);

         -- Check success and continue ...
     end;

     -- Method Two.
     Gnat.Os_Lib.Spawn (
         Program_Name => "/bin/ls",
         Args         => Gnat.Os_Lib.Argument_String_To_List("-al").all,
         Success      => Ok
     );

end GOSL_Test;

-- 
-------------------------------------------------
-- Merge vertically for real address
--
--     s n p @ t . o
--      k i e k c c m
-------------------------------------------------