Ada 编程/属性/'Count
外观
X'Count 是 Ada 的一个 属性,其中 X 是受保护类型中的一个入口点。此属性返回当前排队等待进入入口过程的 任务 数量。
protectedtypeMy_Protected_TypeisentryMy_Entry;procedureGet_Count( Task_Count :outNatural );endMy_Protected_Type; ...procedurebodyGet_Count( Task_Count :outNatural )isbeginTask_Count := My_Entry'Count;endGet_Count;
