Re: Exec command in ada.

[sk <noname@myob.com>]

Hi,

richard@adaworks.com :
 > ... example ...

package GOSL renames Gnat.Os_Lib;

Args : GOSL.Argument_List := (
     GOSL.Argument_String_To_List ("-c hello.adb").All
);


1)
Spawn_Result := GOSL.Spawn (
     Program_Name    => "/usr/gnat/bin/gnatmake",
     Args            => Args
);

2)
GOSL.Spawn (
     Program_Name    => "/usr/gnat/bin/gnatmake",
     Args            => Args,
     Success         => Success_Flag
);

3)
Called_Process := GOSL.Non_Blocking_Spawn (
     Program_Name    => "/usr/gnat/bin/gnatmake",
     Args            => Args
);

...

Wait_Process (Called_Process, Success_Flag);
-- 
-------------------------------------------------
-- Merge vertically for real address
--
--     s n p @ t . o
--      k i e k c c m
-------------------------------------------------