From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 2002:a02:b705:: with SMTP id
 g5-v6mr1742603jam.10.1531877603017;
        Tue, 17 Jul 2018 18:33:23 -0700 (PDT)
X-Received: by 2002:aca:eb15:: with SMTP id j21-v6mr967321oih.6.1531877602331;
 Tue, 17 Jul 2018 18:33:22 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!news.linkpendium.com!news.linkpendium.com!news.snarked.org!border2.nntp.dca1.giganews.com!nntp.giganews.com!g2-v6no1556389itf.0!news-out.google.com!l67-v6ni1202itl.0!nntp.google.com!d7-v6no1540602itj.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Tue, 17 Jul 2018 18:33:21 -0700 (PDT)
In-Reply-To: <c5018fd5-fd29-4bb3-a07a-b31d34dac0cb@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=2601:8c1:8400:84a3:4dae:718c:e1a0:e2a0;
 posting-account=lJ3JNwoAAAAQfH3VV9vttJLkThaxtTfC
NNTP-Posting-Host: 2601:8c1:8400:84a3:4dae:718c:e1a0:e2a0
References: <dc7f199d-d0af-4c19-a27f-8884ba5547de@googlegroups.com>
 <pikofe$d1g$1@dont-email.me>
 <f514e0d8-8bbf-4170-95fc-ac11b1f3a2f6@googlegroups.com>
 <7461ada5-9bc3-43f5-98b0-b2930d9145bc@googlegroups.com>
 <c5018fd5-fd29-4bb3-a07a-b31d34dac0cb@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <64d78fab-63f0-42f4-8efa-792a0b14264b@googlegroups.com>
Subject: Re: How to run a GNAT program without starting a terminal session
From: Shark8 <onewingedshark@gmail.com>
Injection-Date: Wed, 18 Jul 2018 01:33:23 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:53885
Date: 2018-07-17T18:33:21-07:00
List-Id: <comp.lang.ada>

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;