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