[_CDCSL_93-16_]<1>Cedar>release>Regressions>XMesaCmplr10Defs1.mesa

XMesaCmplr10Defs1.mesa 17-Aug-87 18:38:12

Jim Foote January 22, 1988 1:49:53 pm PST

<<This interface contains the definitions of the simple variables, constants, types, and procedures used by ModB and XMesaCmplr10Defs2 and implemented by ModA.>>

XMesaCmplr10Defs1: DEFINITIONS =

BEGIN

i1: INTEGER = 1;

i2: INTEGER;

c1: CARDINAL =1;

c2: CARDINAL;

r1: REAL = 1.0;

r2: REAL;

char1: CHAR = 'a;

char2: CHAR;

b1: BOOLEAN = TRUE;

b2: BOOLEAN;

SimplRecord: TYPE = RECORD[

anInt: INTEGER Ź 9,

aCard: CARDINAL Ź 9,

aReal: REAL Ź 9.0,

aChar: CHAR Ź 'j,

aBool: BOOLEAN Ź TRUE];

iArray: TYPE = ARRAY [0..5] OF INTEGER;

cArray: TYPE = ARRAY [0..5] OF CARDINAL;

rArray: TYPE = ARRAY [0..5] OF REAL;

charArray: TYPE = ARRAY [0..5] OF CHAR;

bArray: TYPE = ARRAY [0..5] OF BOOLEAN;

Geti: PROCEDURE RETURNS[INTEGER];

Getc: PROCEDURE RETURNS[CARDINAL];

Getr: PROCEDURE RETURNS[REAL];

Getchar: PROCEDURE RETURNS[CHAR];

Getb: PROCEDURE RETURNS[BOOLEAN];

END..