From: Alejandro Villanueva <190921@cepsz.unizar.es>
Subject: Re: select ... or delay ... end select
Date: 2000/10/20
Date: 2000-10-20T16:43:25+00:00 [thread overview]
Message-ID: <39F07279.96C6F9D@cepsz.unizar.es> (raw)
In-Reply-To: 39F06DC0.55772F5B@cepsz.unizar.es
Dumb!!!!! That Get_Line was blocking!!!! Dumb!!!!!!!!
Alejandro Villanueva wrote:
> Dear Sirs,
>
> Maybe I'm more stupid that I think I am but... why doesn't this code
> work???
>
> --
> ------------------------------------------------------
> �Quieres Cobrar por Navegar en Internet?
> Visita: http://www.navegana.com/dinero/flintstone.html
> ------------------------------------------------------
> Alejandro Villanueva
> 190921@cepsz.unizar.es
> ------------------------------------------------------
>
> ------------------------------------------------------------------------
> with Text_IO; use Text_IO;
> procedure Condition is
> US: String (1..1);
> UI: Integer;
> task Wait is
> entry Ok;
> end Wait;
> task body Wait is
> begin
> Get_Line (US, UI);
> accept Ok;
> end Wait;
> begin
> select
> Wait.Ok;
> Put_Line ("True");
> or
> delay Duration (1.0);
> Put_Line ("False");
> end select;
> end Condition;
>
--
------------------------------------------------------
�Quieres Cobrar por Navegar en Internet?
Visita: http://www.navegana.com/dinero/flintstone.html
------------------------------------------------------
Alejandro Villanueva
190921@cepsz.unizar.es
------------------------------------------------------
next prev parent reply other threads:[~2000-10-20 0:00 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2000-10-20 0:00 select ... or delay ... end select Alejandro Villanueva
2000-10-20 0:00 ` Alejandro Villanueva [this message]
2000-10-21 0:00 ` Robert Dewar
2000-10-23 0:00 ` Alejandro Villanueva
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox