From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on ip-172-31-65-14.ec2.internal X-Spam-Level: X-Spam-Status: No, score=0.8 required=3.0 tests=BAYES_50,FREEMAIL_FROM, T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6 X-Received: by 2002:a0c:f387:0:b0:572:1044:dafe with SMTP id i7-20020a0cf387000000b005721044dafemr362606qvk.55.1677083658370; Wed, 22 Feb 2023 08:34:18 -0800 (PST) X-Received: by 2002:a05:6870:2e0d:b0:16d:8e4a:fe38 with SMTP id oi13-20020a0568702e0d00b0016d8e4afe38mr1117417oab.291.1677083658069; Wed, 22 Feb 2023 08:34:18 -0800 (PST) Path: eternal-september.org!reader01.eternal-september.org!usenet.blueworldhosting.com!feed1.usenet.blueworldhosting.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Wed, 22 Feb 2023 08:34:17 -0800 (PST) Injection-Info: google-groups.googlegroups.com; posting-host=2001:861:3006:e580:fb20:5e3c:f153:3003; posting-account=I_eLtQoAAAA-qV4zTYNhsy2EmfPsGcSc NNTP-Posting-Host: 2001:861:3006:e580:fb20:5e3c:f153:3003 User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: Subject: wait does not perform as expected From: Daniel Gaudry Injection-Date: Wed, 22 Feb 2023 16:34:18 +0000 Content-Type: text/plain; charset="UTF-8" X-Received-Bytes: 3128 Xref: reader01.eternal-september.org comp.lang.ada:64958 List-Id: hi the following code : with Gnat.Os_Lib; with Ada.Strings; with Ada.Strings.Fixed; with Ada.Strings.Maps; with Ada.Strings.Maps.Constants; with ada.text_io; with Ada.Strings; procedure Hit_Return_To_Continue(Header : in String := "HIT RETURN TO CONTINUE"; Mandatory : in Boolean := False; Skip_After : in Duration := 0.0) is Char : Character := ' '; Hit : Boolean := True; Timer : Duration := 0.0; begin -- ANYTHING TO DO ? if Mandatory then ada.text_io.Put(Header); -- ANY WAITING PERIOD TO DISPLAY ? if Skip_After > 0.0 then -- KEEP THE USER'S ATTENTION while Timer < Skip_After loop Timer := 1.0 + @; delay 1.0; ada.text_io.Put(Natural(Skip_After - Timer)'Img); --USER ENDS THE WAITING PERIOD BEFORE IT'S END ? TIO.LOOK_AHEAD(ITEM => CHAR, END_OF_LINE => HIT); ada.text_io.GET_IMMEDIATE(ITEM => CHAR, AVAILABLE => HIT); IF HIT THEN RETURN; END IF; end loop; -- USER WAITED FOR THE WHOLE WAITING PERIOD -- LET HIM READ THE ZERO ON THE SCREEN delay 1.0; return; end if; Atio.Get_Immediate(Item => Char, Available => Hit); Atio.New_Line(Spacing => 1); end if; end Hit_Return_To_Continue; the following call: Hit_Return_To_Continue(Header => "HIT RETURN TO CONTINUE", Mandatory => true, Skip_After => 5.0); does not return if the user hits a key before the end of the countdown. Can anybody help Best regards