Re: Understanding Rendezvous

["James S. Rogers" <jimmaureenrogers@worldnet.att.net>]

"Chris" <cp98ak@cosc.brocku.ca> wrote in message
news:a5589416.0302221942.5c0034e5@posting.google.com...
> Hello,
> I am trying to get a grip on how to do different things with Ada,
> using rendezvous. What I desire is a selective accept that will have a
> condition of something like "if this accept is waiting, processes it"
> and the alternate portion of the select will be OTHER code, just
> general code that does whatever (no accepts). I tried it with a
> 'delay' but did not get the proper results.
>
> I.E.:
>
> loop
> select
> when Accept_Ready =>
> accept Data (...,...) do
> ...
> end Data;
> or
> print_this_compute_that();
> end select;
> end loop;
>

You need to use a selective accept with an "else" alternative.

loop
   select
   accept Data(...,...) do
   ...
   end Data;
   else
      print_this_compute_that;
   end select;
end loop;

Jim Rogers