Re: How to run a GNAT program without starting a terminal session

[Shark8 <onewingedshark@gmail.com>]

On Tuesday, July 17, 2018 at 3:56:24 PM UTC-6, Jerry wrote:
With
Ada.Calendar.Formatting,
Ada.Text_IO;

Use
Ada.Text_IO;

Procedure Test is
    Task Type Hello( Cycle_Timing : not null access Duration ) is
	Entry Stop;
    end Hello;
    
    Task Body Hello is
	Finished : Boolean := False;
    Begin
	Ada.Text_IO.Put_Line( "Starting Task Hello." );
	loop
	    select
		accept Stop  do
		    null;
		end Stop;
		Finished:= True;
	    OR
		delay Cycle_Timing.all;
	    end select;
	    Exit when Finished;
	    -- TIMED PORTION.
	    Ada.Text_IO.Put_Line( "The time is now: " &
		Ada.Calendar.Formatting.Image(
			Ada.Calendar.Clock
			    )
			  & '.' );
	end loop;
	Ada.Text_IO.Put_Line( "Finishing Task Hello." );
    End Hello;
    

    
    Greeter : Hello( new Duration'(3.0) ); -- 3 second cycle.
Begin
    --Runner;
    
    declare
        -- Wait until the user hits enter...
	Tmp : String renames Get_Line;
    Begin
        -- then stop the Greeter task.
	Greeter.Stop;
    End;
End Test;