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
12 ###############################################################################
23 mp2 := mp1 - mp2 + 10 / mp1;
25 mp3 := mp3 + mplist2[mp1 - 1 - ${MACRO_INT, integer}];
29 mp5 := +mp4 / 0.5 - 1.5 * (mp5 + 1.0);
32 mpbs1 &= '1101'B & mpbs2 & '01'B;
33 mpbs2 := mpbs2 & mpbs1;
37 mphs1 := '77FF'H & mphs1 & mphs2;
42 mpos2 := 'A22C'O & mpos1 & 'C22A'O;
46 mpcs1 := mpcs1 & "ghi";
47 mpcs2 := "xx" & mpcs1 & "xx" & mpcs2;
48 mpcs3 := mpucs1 & "xx";
50 # universal charstring
51 mpucs1 := "a" & mpucs2;
52 mpucs2 := "űrhajó" & mpcs1 & char(mp1 + 1, 5, mp1 * 5, 5) & "x";
71 mpenum2 := references.mpenum1;
76 mplist2 := { [mp1 / 2] := 3, [0] := mprec1.num };
83 mprec3 := { mplist1[0], mpcs1 };
86 mpemptyrec2 := mpemptyrec1;
92 mpuni3 := { osval := mpos1 & mpos2 };
95 mparray1 := { mparray2[0], mpcs1 & "xx" };
100 mptint2 := (mp1 + 6, mp2, - mp3, - ${MACRO_INT, integer});
103 mptf1 := mptf2 ifpresent;
104 mptf2 := (mp4 / 2.0, mp5 * 1.5);
106 # charstring template
107 mptcs1 := mptcs1 length(2 .. mp2 - 1);
108 mptcs2 := "xx" & mptcs2 & "xx" ifpresent;
109 mptcs3 := mptcs3 & "d" & mptarray2[1];
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;
117 mptbs1 := '110'B & mpbs1 & '011'B;
118 mptbs2 := mptbs2 ifpresent;
122 mpths1 := 'AB'H & mphs1 & 'BA'H;
124 mpths3 := mpths3 length (7..infinity);
126 # octetstring template
127 mptos1 := '01'O & mpos1 & '10'O;
132 mptb1 := (mptb1, mptb2);
133 mptb2 := mptuni3.bval;
136 mptcomp2 := mptcomp1;
141 # verdicttype template
146 # enumerated template
152 mptobjid1 := mptobjid2;
153 mptobjid2 := mpobjid1;
157 mptrec2 := { num := mptrec2.num, str := mptcs1 };
158 mptrec3 := ( mptrec3, mprec1, mprec2, mprec3 );
160 # empty record template
161 mptemptyrec1 := mptemptyrec2;
162 mptemptyrec2 := mpemptyrec1;
165 mptlist1 := { [2] := mptlist2[0], [1] := mptlist2[1], [0] := mptlist2[2] } length (1..4);
166 mptlist2 := mptlist3;
167 mptlist3 := complement ( mptlist2, mplist1, mplist2 );
171 mptuni2 := { ival := mptint2 };
172 mptuni3 := ( mpuni1, mpuni2, mpuni3 );
175 mptarray1 := mptarray2 ifpresent;
176 mptarray2 := mptarray3;
177 mptarray3 := mparray1;