Object-oriented Software in Ada 95

370 Appendix A
select
accept option1 do
...
end;
or
accept option2 do
...
end;
end select;
select
accept ...
else
statements;
end select;
select
accept ...
or
delay n.m;
statements;
end select;
Protected type
protected type PT_Buffer is --Task type specification
entry Put( Ch:in Character );
entry Get( Ch:out Character );
private
-- variables which cannot be simultaneous accessed
end PT_Buffer;
protected body PT_Buffer is
entry Put( Ch:in Character )
when No_In_Queue < Queue_Size is
begin
. . .
end Put;
entry Get( Ch:in out Character )
when No_In_Queue > 0 is
begin
. . .
end Get;
© M A Smith - May not be reproduced without permission