Ada 编程/属性/'Count
外观
X'Count 是 Ada 的一个 属性,其中 X 是受保护类型中的一个入口点。此属性返回当前排队等待进入入口过程的 任务 数量。
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;