Merge github.com:eclipse/titan.core
[deliverable/titan.core.git] / regression_test / cfgFile / module_parameters / references / references.cfg
1 ###############################################################################
2 # Copyright (c) 2000-2016 Ericsson Telecom AB
3 # All rights reserved. This program and the accompanying materials
4 # are made available under the terms of the Eclipse Public License v1.0
5 # which accompanies this distribution, and is available at
6 # http://www.eclipse.org/legal/epl-v10.html
7 #
8 # Contributors:
9 # Balasko, Jeno
10 # Baranyi, Botond
11 #
12 ###############################################################################
13
14 [DEFINE]
15 MACRO_CS := "macro"
16 MACRO_INT := 1
17
18 [MODULE_PARAMETERS]
19
20 # integer
21 mp1 := +1;
22 mp1 := mp1 + 1;
23 mp2 := mp1 - mp2 + 10 / mp1;
24 mp3 := (mp1 + 2) * 5;
25 mp3 := mp3 + mplist2[mp1 - 1 - ${MACRO_INT, integer}];
26
27 # float
28 mp4 := -3.0;
29 mp5 := +mp4 / 0.5 - 1.5 * (mp5 + 1.0);
30
31 # bitstring
32 mpbs1 &= '1101'B & mpbs2 & '01'B;
33 mpbs2 := mpbs2 & mpbs1;
34 mpbs1 &= mpbs2;
35
36 # hexstring
37 mphs1 := '77FF'H & mphs1 & mphs2;
38 mphs2 &= 'EE'H;
39
40 # octetstring
41 mpos1 := 'DEAD'O;
42 mpos2 := 'A22C'O & mpos1 & 'C22A'O;
43
44 # charstring
45 mpcs1 &= mpcs2;
46 mpcs1 := mpcs1 & "ghi";
47 mpcs2 := "xx" & mpcs1 & "xx" & mpcs2;
48 mpcs3 := mpucs1 & "xx";
49
50 # universal charstring
51 mpucs1 := "a" & mpucs2;
52 mpucs2 := "űrhajó" & mpcs1 & char(mp1 + 1, 5, mp1 * 5, 5) & "x";
53
54 # boolean
55 mpb1 := mpb2;
56 mpb2 := mpuni2.bval;
57
58 # objid
59 mpobjid2 := mpobjid1;
60
61 # verdicttype
62 mpvt2 := mpvt1;
63
64 # component
65 mpcomp2 := mpcomp1;
66
67 # default
68 mpdef2 := mpdef1;
69
70 # enumerated
71 mpenum2 := references.mpenum1;
72 mpenum1 := Large;
73
74 # record of
75 mplist1 := mplist2;
76 mplist2 := { [mp1 / 2] := 3, [0] := mprec1.num };
77 mplist2 &= mplist1;
78
79 # record
80 mprec3 := mprec1;
81 mprec1 := mprec2;
82 mprec2 := mprec3;
83 mprec3 := { mplist1[0], mpcs1 };
84
85 # empty record
86 mpemptyrec2 := mpemptyrec1;
87
88 # union
89 mpuni3 := mpuni1;
90 mpuni1 := mpuni2;
91 mpuni2 := mpuni3;
92 mpuni3 := { osval := mpos1 & mpos2 };
93
94 # array
95 mparray1 := { mparray2[0], mpcs1 & "xx" };
96 mparray2 := mparray1;
97
98 # integer template
99 mptint1 := mptint2;
100 mptint2 := (mp1 + 6, mp2, - mp3, - ${MACRO_INT, integer});
101
102 # float template
103 mptf1 := mptf2 ifpresent;
104 mptf2 := (mp4 / 2.0, mp5 * 1.5);
105
106 # charstring template
107 mptcs1 := mptcs1 length(2 .. mp2 - 1);
108 mptcs2 := "xx" & mptcs2 & "xx" ifpresent;
109 mptcs3 := mptcs3 & "d" & mptarray2[1];
110
111 # universal charstring template
112 mptucs3 := (mptucs1, ("a".."z"));
113 mptucs2 := "zz" & mpucs2 & "zz";
114 mptucs1 := pattern "a??b" & ${MACRO_CS} & char(1, 2, 3, 4) & mpucs1;
115
116 # bitstring template
117 mptbs1 := '110'B & mpbs1 & '011'B;
118 mptbs2 := mptbs2 ifpresent;
119 mptbs3 := mptbs3;
120
121 # hexstring template
122 mpths1 := 'AB'H & mphs1 & 'BA'H;
123 mpths2 := mpths2;
124 mpths3 := mpths3 length (7..infinity);
125
126 # octetstring template
127 mptos1 := '01'O & mpos1 & '10'O;
128 mptos2 := mptos2;
129 mptos3 := mptos3;
130
131 # boolean template
132 mptb1 := (mptb1, mptb2);
133 mptb2 := mptuni3.bval;
134
135 # component template
136 mptcomp2 := mptcomp1;
137
138 # default template
139 mptdef2 := mptdef1;
140
141 # verdicttype template
142 mptvt1 := mptvt2;
143 mptvt2 := mpvt2;
144 mptvt3 := inconc;
145
146 # enumerated template
147 mptenum1 = mptenum2;
148 mptenum2 := mpenum2;
149 mptenum3 := Medium;
150
151 # objid template
152 mptobjid1 := mptobjid2;
153 mptobjid2 := mpobjid1;
154
155 # record template
156 mptrec1 := mptrec2;
157 mptrec2 := { num := mptrec2.num, str := mptcs1 };
158 mptrec3 := ( mptrec3, mprec1, mprec2, mprec3 );
159
160 # empty record template
161 mptemptyrec1 := mptemptyrec2;
162 mptemptyrec2 := mpemptyrec1;
163
164 # record of template
165 mptlist1 := { [2] := mptlist2[0], [1] := mptlist2[1], [0] := mptlist2[2] } length (1..4);
166 mptlist2 := mptlist3;
167 mptlist3 := complement ( mptlist2, mplist1, mplist2 );
168
169 # union template
170 mptuni1 := mptuni2;
171 mptuni2 := { ival := mptint2 };
172 mptuni3 := ( mpuni1, mpuni2, mpuni3 );
173
174 # array template
175 mptarray1 := mptarray2 ifpresent;
176 mptarray2 := mptarray3;
177 mptarray3 := mparray1;
178
179 [EXECUTE]
180 references.control
This page took 0.043157 seconds and 5 git commands to generate.