type Task_Ids is (<>);
type Atomic_Condition is (Succeeded, Late_Condition, Time_Out_Condition, Other_Exception);
type Check_Out_State is (Normal_Check_Out, Failed_Check_Out);
type Task_List is array (Task_Ids) of Task_State;
Check_List_All_Out : constant Task_List := (others => Is_Out);
entry Check_In
| ( | Task_Id | : Task_Ids); |
entry Fail
| ( | Condition | : Atomic_Condition); |
entry Failed;
entry Check_Out
| ( | Check_Out_State) (Task_Id | : Task_Ids); |
entry Action_Result
| ( | Condition | : out Atomic_Condition); |
Check_List: Task_List := Check_List_All_Out; References:
atomic_controller.ads:45:7 (declaration)atomic_controller.adb:16:13 (reference)atomic_controller.adb:19:13 (write reference)atomic_controller.adb:20:16 (reference)atomic_controller.adb:44:10 (write reference)atomic_controller.adb:45:13 (reference)Called by:
Check_In defined at atomic_controller.ads:35:13Check_In defined at atomic_controller.ads:35:13Check_In defined at atomic_controller.ads:35:13Check_Out defined at atomic_controller.ads:40:13Check_Out defined at atomic_controller.ads:40:13Monitor. State (private)
State: Atomic_State := Checking_In; References:
atomic_controller.ads:46:7 (declaration)atomic_controller.adb:13:48 (reference)atomic_controller.adb:21:16 (write reference)atomic_controller.adb:26:54 (reference)atomic_controller.adb:39:12 (reference)atomic_controller.adb:43:10 (write reference)atomic_controller.adb:46:13 (write reference)atomic_controller.adb:50:67 (reference)atomic_controller.adb:54:10 (write reference)Called by:
Action_Result defined at atomic_controller.ads:42:13Action_Result defined at atomic_controller.ads:42:13Check_In defined at atomic_controller.ads:35:13Check_In defined at atomic_controller.ads:35:13Check_Out defined at atomic_controller.ads:40:13Check_Out defined at atomic_controller.ads:40:13Check_Out defined at atomic_controller.ads:40:13Fail defined at atomic_controller.ads:37:13Monitor. Final_Condition (private)
Final_Condition: Atomic_Condition := Succeeded; References:
atomic_controller.ads:47:7 (declaration)atomic_controller.adb:29:10 (write reference)atomic_controller.adb:32:25 (reference)atomic_controller.adb:53:29 (reference)atomic_controller.adb:55:10 (write reference)Called by:
Action_Result defined at atomic_controller.ads:42:13Action_Result defined at atomic_controller.ads:42:13Fail defined at atomic_controller.ads:37:13Failed defined at atomic_controller.ads:38:13Monitor. Id_Counter (private)
Id_Counter: Task_Ids := Task_Ids'First; References:
atomic_controller.ads:48:7 (declaration)