DIRECTORY M2D USING [ObjPtr, StrPtr, ProcPtr], M2G USING [LabelTabPtr], M2H USING [ItemPtr]; M2Q: CEDAR DEFINITIONS = BEGIN InitQ: PROC; Type: PROC RETURNS [typ: M2D.StrPtr]; FormalType: PROC RETURNS [typ: M2D.StrPtr]; OpaqueType: PROC RETURNS [typ: M2D.StrPtr]; CaseLabelList: PROC [Ltyp: M2D.StrPtr, n: CARDINAL, tab: M2G.LabelTabPtr] RETURNS [N: CARDINAL]; FormalParameters: PUBLIC PROC [proc: M2D.ProcPtr]; ActualParameters: PROC [x: M2H.ItemPtr]; StandProcCall: PROC [p: M2H.ItemPtr]; Selector: PROC [x: M2H.ItemPtr, obj: M2D.ObjPtr]; ConstExpression: PROC [x: M2H.ItemPtr]; Expression: PROC [x: M2H.ItemPtr]; END. jFILE: M2Q.mesa Modula-2 Parser, Part 2 Last Edited by: Gutknecht, September 18, 1985 0:24:54 am PDT ĘA˜Jšœ™Jšœ™J™