Understanding Rendezvous

Understanding Rendezvous

[Chris]

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;

I just need to be pointed in the right direction.

TIA,

Chris.

Re: Understanding Rendezvous

[James S. Rogers]

"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