Ada Programming/Attributes/'Count
Appearance
Description
[edit | edit source]X'Count is an Ada attribute where X is an entry point in a protected type. This attribute returns the number of tasks currently enqueued waiting for entrance into the entry procedure.
Example
[edit | edit source]protected
type
My_Protected_Typeis
entry
My_Entry;procedure
Get_Count( Task_Count :out
Natural );end
My_Protected_Type; ...procedure
body
Get_Count( Task_Count :out
Natural )is
begin
Task_Count := My_Entry'Count;end
Get_Count;