blob: c65f860459b10d77e5b57c5de6ca231c2e3f1721 [file] [log] [blame]
Nico Huber83693c82016-10-08 22:17:55 +02001--
2-- Copyright (C) 2015-2016 secunet Security Networks AG
3--
4-- This program is free software; you can redistribute it and/or modify
5-- it under the terms of the GNU General Public License as published by
6-- the Free Software Foundation; version 2 of the License.
7--
8-- This program is distributed in the hope that it will be useful,
9-- but WITHOUT ANY WARRANTY; without even the implied warranty of
10-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11-- GNU General Public License for more details.
12--
13
14with HW.GFX.I2C;
15with HW.GFX.DP_Defs;
16
17private generic
18
19 type T (<>) is limited private;
20
21 with procedure Aux_Request
22 (Port : in T;
23 Request : in DP_Defs.Aux_Request;
24 Request_Length : in DP_Defs.Aux_Request_Length;
25 Response : out DP_Defs.Aux_Response;
26 Response_Length : out DP_Defs.Aux_Response_Length;
27 Success : out Boolean);
28
29package HW.GFX.DP_Aux_Ch is
30
31 procedure Aux_Read
32 (Port : in T;
33 Address : in DP_Defs.Aux_Message_Address;
34 Length : in out DP_Defs.Aux_Payload_Length;
35 Data : out DP_Defs.Aux_Payload;
36 Success : out Boolean);
37
38 procedure Aux_Write
39 (Port : in T;
40 Address : in DP_Defs.Aux_Message_Address;
41 Length : in DP_Defs.Aux_Payload_Length;
42 Data : in DP_Defs.Aux_Payload;
43 Success : out Boolean);
44
45 ----------------------------------------------------------------------------
46
47 procedure I2C_Read
48 (Port : in T;
49 Address : in I2C.Transfer_Address;
50 Length : in out I2C.Transfer_Length;
51 Data : out I2C.Transfer_Data;
52 Success : out Boolean);
53
54end HW.GFX.DP_Aux_Ch;