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=0.6 required=5.0 tests=BAYES_00,DEAR_SOMETHING, INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII X-Google-Thread: 103376,95bca8794514baaa,start X-Google-Attributes: gid103376,public From: Alejandro Villanueva <190921@cepsz.unizar.es> Subject: Re: select ... or delay ... end select Date: 2000/10/20 Message-ID: <39F07279.96C6F9D@cepsz.unizar.es>#1/1 X-Deja-AN: 683995033 Content-Transfer-Encoding: 8bit References: <39F06DC0.55772F5B@cepsz.unizar.es> Content-Type: text/plain; charset=iso-8859-1 X-Complaints-To: usenet@news.unizar.es X-Trace: news.unizar.es 972060205 7855 155.210.155.32 (20 Oct 2000 16:43:25 GMT) Organization: Universidad de Zaragoza Mime-Version: 1.0 NNTP-Posting-Date: 20 Oct 2000 16:43:25 GMT Newsgroups: comp.lang.ada Date: 2000-10-20T16:43:25+00:00 List-Id: 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 ------------------------------------------------------