Ada Programming/Attributes/'Count
Description
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
protectedtypeMy_Protected_TypeisentryMy_Entry;procedureGet_Count( Task_Count :outNatural );endMy_Protected_Type; ...procedurebodyGet_Count( Task_Count :outNatural )isbeginTask_Count := My_Entry'Count;endGet_Count;