<< 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. X XMesaCmplr10a.mesa 17-Aug-87 18:36:25 Jim Foote January 20, 1988 9:26:47 am PST ĘC•NewlineDelimiter ™J™%J™)J˜J˜ĄJ˜šĪk ˜ J˜J˜J˜—šĪn œœ˜Jšœ˜Jšœ'˜.—š˜Jšœœœ˜Jšœœœ˜Jšœœœ˜Jšœœœ˜Jšœœœ˜J˜šœ œœœ˜"Jšœœ˜Jšœœ˜Jšœœ˜Jšœœ˜Jšœœœ˜J˜—Jš œœœœœœ˜.Jš œœœœœœ˜/Jš œœœœœœ˜+Jš œ œœœœœ˜.Jš œœœœœœ˜.J˜Jš žœœ œœœœ˜6Jš žœœ œœœœ˜7Jš žœœ œœœœ˜5Jš žœœ œœœœ˜7Jšžœœ œœœœœ˜:—Jšœ˜J˜—…— ģ