POK
apex-timing.ads
1 -- ---------------------------------------------------------------------------
2 -- --
3 -- TIME constant and type definitions and management services --
4 -- --
5 -- ---------------------------------------------------------------------------
6 package APEX.Timing is
7  procedure Timed_Wait
8  (Delay_Time : in System_Time_Type;
9  Return_Code : out Return_Code_Type);
10  procedure Periodic_Wait (Return_Code : out Return_Code_Type);
11  procedure Get_Time
12  (System_Time : out System_Time_Type;
13  Return_Code : out Return_Code_Type);
14  procedure Replenish
15  (Budget_Time : in System_Time_Type;
16  Return_Code : out Return_Code_Type);
17 
18  -- POK BINDINGS
19  pragma Import (C, Timed_Wait, "TIMED_WAIT");
20  pragma Import (C, Periodic_Wait, "PERIODIC_WAIT");
21  pragma Import (C, Get_Time, "GET_TIME");
22  pragma Import (C, Replenish, "REPLENISH");
23  -- END OF POK BINDINGS
24 end Apex.Timing;