Re: Example of Spawn call

[anon@anon.org (anon)]

I am not the guy that ask for help. My example worked for the simple version 
of spawn.

I think the first guy "Daniel" who ask for help forgot to use the 
"Argument_String_To_List" routine to build the agument list.  Even if 
there is no arguments he should call "Argument_String_To_List"
and give it a null string ( "" ) to insure that the parameter is correct 
for the "spawn" call.



In <7cc6117d-689f-41ef-be05-882a7b5453a7@y34g2000prb.googlegroups.com>, Hang <xiehang@gmail.com> writes:
>On 5=D4=C21=C8=D5, =CF=C2=CE=E711=CA=B128=B7=D6, 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 :=3D "temp.exe" ;
>>   Args         : Argument_List_Access ;
>>   Success      : Boolean ;
>>
>> begin -- test
>>
>>   -- Create argument list.
>>
>>   Args :=3D 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 ( "  =3D> " ) ;
>>     Put_Line ( Argument ( Index ) ) ;
>>   end loop ;
>> end temp ;
>>
>> In <50d832b4-140d-4029-8d7c-939711516...@u8g2000yqn.googlegroups.com>, da=
>niel.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  =3D> First
> 2  =3D> -second
> 3  =3D> 3
>Temp was Spawned Correctly
>