-- file: MFParsing.mesa
-- Pascal-to-Mesa translator output, translated at October 31, 1985 4:28:00 pm PST


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes;

MFParsing: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles, MFTypes;

CurType: SmallNumber;

CurExp: PascalInteger;
MaxC: LONG POINTER TO ARRAY PascalInteger[17..18] OF  PascalInteger;
MaxPtr: LONG POINTER TO ARRAY PascalInteger[17..18] OF  Halfword;
MaxLink: LONG POINTER TO ARRAY PascalInteger[17..18] OF  Halfword;

VarFlag: PascalInteger[0..82];

 PrintDp: PROCEDURE[T: SmallNumber,P: Halfword,Verbosity: SmallNumber]
;

 StashCurExp: PROCEDURE RETURNS[StashCurExpResult: Halfword];

 UnstashCurExp: PROCEDURE[P: Halfword]
;

 PrintExp: PROCEDURE[P: Halfword,Verbosity: SmallNumber]
;

 DispErr: PROCEDURE[P: Halfword,S: StrNumber];

 RecycleValue: PROCEDURE[P: Halfword];

 FlushCurExp: PROCEDURE[V: Scaled]
;

 FlushError: PROCEDURE[V: Scaled]
;

 PutGetError: PROCEDURE;

 PutGetFlushError: PROCEDURE[V: Scaled]
;

--:605----606:-- ConstDependency: PROCEDURE[V: Scaled] RETURNS[ConstDependencyResult: Halfword]
;

 SingleDependency: PROCEDURE[P: Halfword] RETURNS[SingleDependencyResult: Halfword];

 CopyDepList: PROCEDURE[P: Halfword] RETURNS[CopyDepListResult: Halfword]
;

--854:----855:-- Encapsulate: PROCEDURE[P: Halfword]
;

 Install: PROCEDURE[R,Q: Halfword];

 MakeExpCopy: PROCEDURE[P: Halfword];

--823:-- BadExp: PROCEDURE[S: StrNumber];

--:823----826:-- StashIn: PROCEDURE[P: Halfword];

 BackExpr: PROCEDURE;

--848:-- BadSubscript: PROCEDURE;

 Obliterated: PROCEDURE[Q: Halfword]
;

 BinaryMac: PROCEDURE[P,C,N: Halfword];

 MaterializePen: PROCEDURE;

 KnownPair: PROCEDURE;

 NewKnot: PROCEDURE RETURNS[NewKnotResult: Halfword];

 ScanDirection: PROCEDURE RETURNS[ScanDirectionResult: SmallNumber];

 ScanPrimary: PROCEDURE
;

 ScanSuffix: PROCEDURE;

 ScanSecondary: PROCEDURE;

 ScanTertiary: PROCEDURE
;

 ScanExpression: PROCEDURE;

 GetBoolean: PROCEDURE;

END.