Re: Example of Spawn call

[Hang <xiehang@gmail.com>]

On 5月1日, 下午11时28分, a...@anon.org (anon) wrote:
> with Ada.Text_IO ;
> use  Ada.Text_IO ;
>
> with GNAT.OS_Lib ;  -- Could be System.OS_Lib
> use GNAT.OS_Lib ;
>
> procedure test is
>
>   Program_Name : String := "temp.exe" ;
>   Args         : Argument_List_Access ;
>   Success      : Boolean ;
>
> begin -- test
>
>   -- Create argument list.
>
>   Args := Argument_String_To_List ( " First -second 3" ) ;
>
>   Spawn ( Program_Name, Args.all, Success ) ;
>   if Success then
>     Put_Line ( "Temp was Spawned Correctly" ) ;
>   else
>     Put_Line ( "ERROR: Spawn" ) ;
>   end if ;
> end test ;
>
> --
> -- Spawned program.  May require open/close calls for checking output
> --
> with Ada.Command_Line ;
> use  Ada.Command_Line ;
> with Ada.Text_IO ;
> use  Ada.Text_IO ;
>
> procedure temp is
>
> begin
>   for Index in 1 .. Argument_Count loop
>     Put ( Index'img ) ;
>     Put ( "  => " ) ;
>     Put_Line ( Argument ( Index ) ) ;
>   end loop ;
> end temp ;
>
> In <50d832b4-140d-4029-8d7c-939711516...@u8g2000yqn.googlegroups.com>, daniel.wenge...@home.se writes:
>
> >Though not an Ada issue, really, someone here might have had the same
> >problem as I have had: I tried to make a small program start another
> >program using System.OS_Lib.Spawn. However, it raised Program_Error
> >and stated Exception_Access_Violation.
>
> >Any ideas why, and what to do about it?
>
> >/D
>
>

I'm not seeing any problem:

C:\GNAT\Projects\test>test
 1  => First
 2  => -second
 3  => 3
Temp was Spawned Correctly