1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
--
-- RTEMS / Body
--
-- DESCRIPTION:
--
-- This package provides the interface to the RTEMS API.
--
--
-- DEPENDENCIES:
--
--
--
-- COPYRIGHT (c) 1997-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
-- the file LICENSE in this distribution or at
-- http://www.rtems.org/license/LICENSE.
--
package body RTEMS.Clock is
--
-- Clock Manager
--
procedure Set
(Time_Buffer : in RTEMS.Time_Of_Day;
Result : out RTEMS.Status_Codes)
is
function Set_Base
(Time_Buffer : access RTEMS.Time_Of_Day)
return RTEMS.Status_Codes;
pragma Import (C, Set_Base, "rtems_clock_set");
Tmp_Time : aliased RTEMS.Time_Of_Day;
begin
Tmp_Time := Time_Buffer;
Result := Set_Base (Tmp_Time'Access);
end Set;
procedure Get
(Option : in RTEMS.Clock.Get_Options;
Time_Buffer : in RTEMS.Address;
Result : out RTEMS.Status_Codes)
is
function Get_Base
(Option : RTEMS.Clock.Get_Options;
Time_Buffer : RTEMS.Address)
return RTEMS.Status_Codes;
pragma Import (C, Get_Base, "rtems_clock_get");
begin
Result := Get_Base (Option, Time_Buffer);
end Get;
procedure Get_TOD
(Time : out RTEMS.Time_Of_Day;
Result : out RTEMS.Status_Codes)
is
function Get_TOD_Base
(Time : access RTEMS.Time_Of_Day)
return RTEMS.Status_Codes;
pragma Import (C, Get_TOD_Base, "rtems_clock_get_tod");
Tmp_Time : aliased RTEMS.Time_Of_Day;
begin
Result := Get_TOD_Base (Tmp_Time'Access);
Time := Tmp_Time;
end Get_TOD;
procedure Get_TOD_Time_Value
(Time : out RTEMS.Time_Value;
Result : out RTEMS.Status_Codes)
is
function Get_TOD_Time_Value_Base
(Time : access RTEMS.Time_Value)
return RTEMS.Status_Codes;
pragma Import
(C,
Get_TOD_Time_Value_Base,
"rtems_clock_get_tod_timeval");
Tmp_Time : aliased RTEMS.Time_Value;
begin
Result := Get_TOD_Time_Value_Base (Tmp_Time'Access);
Time := Tmp_Time;
end Get_TOD_Time_Value;
procedure Get_Seconds_Since_Epoch
(The_Interval : out RTEMS.Interval;
Result : out RTEMS.Status_Codes)
is
function Get_Seconds_Since_Epoch_Base
(The_Interval : access RTEMS.Interval)
return RTEMS.Status_Codes;
pragma Import
(C,
Get_Seconds_Since_Epoch_Base,
"rtems_clock_get_seconds_since_epoch");
Tmp_Interval : aliased RTEMS.Interval;
begin
Result :=
Get_Seconds_Since_Epoch_Base (Tmp_Interval'Access);
The_Interval := Tmp_Interval;
end Get_Seconds_Since_Epoch;
-- Get_Ticks_Per_Second is in rtems.ads
-- Get_Ticks_Since_Boot is in rtems.ads
procedure Get_Uptime
(Uptime : out RTEMS.Timespec;
Result : out RTEMS.Status_Codes)
is
function Get_Uptime_Base
(Uptime : access RTEMS.Timespec)
return RTEMS.Status_Codes;
pragma Import (C, Get_Uptime_Base, "rtems_clock_get_uptime");
Uptime_Base : aliased RTEMS.Timespec;
begin
Result := Get_Uptime_Base (Uptime_Base'Access);
Uptime := Uptime_Base;
end Get_Uptime;
procedure Tick (Result : out RTEMS.Status_Codes) is
function Tick_Base return RTEMS.Status_Codes;
pragma Import (C, Tick_Base, "rtems_clock_tick");
begin
Result := Tick_Base;
end Tick;
end RTEMS.Clock;
|