File: /home/oboss/Users/gec/sources/Basic_Services/Low_Level_Stuff/external_on_board_clock.ads

1     --% Compilation Unit:	External_On_Board_Clock
2     --
3     --% Category: Package Declaration
4     --
5     --% Release:  $Name:  $
6     --
7     --% Version:  $Revision: 2.0 $
8     --
9     --% Author:   $Author: gec $
10     --
11     --% Revision Log:
12     --    $Log: external_on_board_clock.ads,v $
13     --    Revision 2.0  2003/04/04 08:50:06  gec
14     --    Initial release of source files serving as baseline for OBOSS-III project.
15     --
16     --    Revision 1.1.1.1  2003/04/04 08:13:02  gec
17     --    Imported using TkCVS
18     --
19     --
20     --
21     --% Project: OBOSS
22     --
23     --% Copyright (C) 2003 by Terma A/S
24     --  Proprietary and intellectual rights of Terma A/S, Denmark,
25     --  are involved in the subject-matter of this material and
26     --  all manufacturing, reproduction, use, disclosure, and
27     --  sales rights pertaining to such subject-matter are
28     --  expressly reserved. This material is submitted for a
29     --  specific purpose as agreed, and the recipient by
30     --  accepting this material agrees that this material will
31     --  not be used, copied, or reproduced in whole or in part
32     --  nor its contents revealed in any manner or to any person,
33     --  except to meet the purpose for which it was submitted and
34     --  subject to the terms of the agreement.
35     --
36     --% Target Dependencies:
37     --    None
38     --% Compiler Dependencies:
39     --    None
40     
41     --~-----------------------------------------------------------------------------
42     
43     with Basic_Types;
44     package External_On_Board_Clock is
45     
46        --% Library Package:
47        --    Interface to an external on-board clock
48        --% Active Tasks:
49        -->   None
50        --% Passive Tasks:
51        -->   None
52     
53        Obt_Byte_Size : constant := 8;                   -- Corresponds to a 64 bit
54                                            --+    external clock
55        type Obt is new Basic_Types.Byte_Array (1 .. Obt_Byte_Size);
56     
57        External_Clock_Frequency : constant := 1.0; -- Frequency of external clock
58                                            --+    in Hz (1 Hz)
59     
60     
61        --% Subprogram:
62        --    Get the current on-board time.
63        --% Parameter Constraints:
64        -->   None
65        --% Exceptions Raised:
66        -->   None
67     
68        function Get_Current_Obt
69              return Obt;
70        pragma Inline (Get_Current_Obt);
71     
72     end External_On_Board_Clock;
73     
74     --~-----------------------------------------------------------------------------
75