blob: 71b79c8748ca74ada9913160a0282ce2c76bc58c (
plain) (
blame)
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
|
// %CopyrightBegin%
//
// Copyright Ericsson AB 1997-2010. All Rights Reserved.
//
// The contents of this file are subject to the Erlang Public License,
// Version 1.1, (the "License"); you may not use this file except in
// compliance with the License. You should have received a copy of the
// Erlang Public License along with this software. If not, it can be
// retrieved online at http://www.erlang.org/.
//
// Software distributed under the License is distributed on an "AS IS"
// basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
// the License for the specific language governing rights and limitations
// under the License.
//
// %CopyrightEnd%
interface I1 {
typedef long T1;
typedef struct S1 {long a; boolean b;} T2;
typedef string StringT, StringT_arr[10];
T1 op1( in StringT a, inout char b, out StringT_arr c );
T2 op2( in char a, inout char b, out StringT_arr c );
const T1 LongC = 10;
const StringT StringC = "Hola bambino";
};
interface I2 : I1 {
T1 op3( in long a);
const long c1 = LongC;
const string c2 = StringC;
};
interface I3 : I1 {};
interface I4 : I3, I2 {}; // Check that branced inherit works
// Now use cnstants to check that inheritance works as expected
module m1 {
interface I1 {
typedef long T1;
const T1 c1 = 9;
};
interface I2 : I1 {
const T1 c2 = c1+5; // c2 = 14
const long c3 = c2+c1+4; // c3 = 27
};
interface I3 : I2, I1 {
const long c1 = 50; // Overrides I1::c1
const T1 c4 = c1+c2+c3; // c4=91
const T1 c5 = I1::c1+c1+c2+c3; // 100
};
};
|
