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;
