Example of Spawn call

[anon@anon.org (anon)]

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-9397115160ba@u8g2000yqn.googlegroups.com>, daniel.wengelin@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