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

XMesaCmplr10a.mesa 17-Aug-87 18:36:25

Jim Foote January 20, 1988 9:26:47 am PST

<< Implementation of XMesaCmplr10Defs1.. also used in XMesaCmplr10Defs2. Mostly variables of simple types. Notice the default values supplied to the RECORD. >>

DIRECTORY

XMesaCmplr10Defs1,

XMesaCmplr10Defs2;

XMesaCmplr10a: PROGRAM

IMPORTS

EXPORTS XMesaCmplr10Defs1, XMesaCmplr10Defs2 =

BEGIN

i2: PUBLIC INTEGER;

c2: PUBLIC CARDINAL;

r2: PUBLIC REAL;

char2: PUBLIC CHAR;

b2: PUBLIC BOOLEAN;

SimplRecord: PUBLIC TYPE = RECORD[

anInt: INTEGER Ź 9,

aCard: CARDINAL Ź 9,

aReal: REAL Ź 9.0,

aChar: CHAR Ź 'j,

aBool: BOOLEAN Ź TRUE];

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

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

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

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

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

Geti: PUBLIC PROCEDURE RETURNS[INTEGER] = {RETURN[2]};

Getc: PUBLIC PROCEDURE RETURNS[CARDINAL] = {RETURN[2]};

Getr: PUBLIC PROCEDURE RETURNS[REAL] = {RETURN[2.0]};

Getchar: PUBLIC PROCEDURE RETURNS[CHAR] = {RETURN['b]};

Getb: PUBLIC PROCEDURE RETURNS[BOOLEAN] = {RETURN[FALSE]};

END.