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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes;

MFSymbols: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles, MFTypes;
Internal: LONG POINTER TO ARRAY PascalInteger[1..MaxInternal] OF  Scaled;
IntName: LONG POINTER TO ARRAY PascalInteger[1..MaxInternal] OF  StrNumber;

IntPtr: PascalInteger[40..MaxInternal];

OldSetting: PascalInteger[0..5];
CharClass: LONG POINTER TO ARRAY AsciiCode OF  PascalInteger[0..20];

HashUsed: Halfword;

StCount: PascalInteger;
Hash: LONG POINTER TO ARRAY PascalInteger[1..2241] OF  TwoHalves;
Eqtb: LONG POINTER TO ARRAY PascalInteger[1..2241] OF  TwoHalves;

GPointer: Halfword;
BigNodeSize: LONG POINTER TO ARRAY PascalInteger[13..14] OF  SmallNumber;

SavePtr: Halfword;

 ShowTokenList: PROCEDURE[P,Q: PascalInteger,L,NullTally: PascalInteger]
;

 Runaway: PROCEDURE;

 PrintOp: PROCEDURE[C: Quarterword]
;

--:189----194:-- FixDateAndTime: PROCEDURE
;

--205:-- IdLookup: PROCEDURE[J,L: PascalInteger] RETURNS[IdLookupResult: Halfword];

 Primitive: PROCEDURE[S: StrNumber,C: Halfword,O: Halfword]
;

--:210----215:-- NewNumTok: PROCEDURE[V: Scaled] RETURNS[NewNumTokResult: Halfword];


 FlushTokenList: PROCEDURE[P: Halfword];

 DeleteMacRef: PROCEDURE[P: Halfword]
;

 PrintCmdMod: PROCEDURE[C,M: PascalInteger]
;

 ShowMacro: PROCEDURE[P: Halfword,Q,L: PascalInteger];

 InitBigNode: PROCEDURE[P: Halfword];

 IdTransform: PROCEDURE RETURNS[IdTransformResult: Halfword]
;

--234:-- NewRoot: PROCEDURE[X: Halfword];

 PrintVariableName: PROCEDURE[P: Halfword]
;

--238:-- Interesting: PROCEDURE[P: Halfword] RETURNS[InterestingResult: PascalBoolean];

 NewStructure: PROCEDURE[P: Halfword] RETURNS[NewStructureResult: Halfword];

 FindVariable: PROCEDURE[T: Halfword] RETURNS[FindVariableResult: Halfword];

 FlushBelowVariable: PROCEDURE[P: Halfword];

 FlushVariable: PROCEDURE[P,T: Halfword,DiscardSuffixes: PascalBoolean]
;

 UndType: PROCEDURE[P: Halfword] RETURNS[UndTypeResult: SmallNumber]
;

--249:-- ClearSymbol: PROCEDURE[P: Halfword,Saving: PascalBoolean];

 SaveVariable: PROCEDURE[Q: Halfword]
;

 SaveInternal: PROCEDURE[Q: Halfword];

--:253----254:-- Unsave: PROCEDURE;

 ShowCmdMod: PROCEDURE[C,M: PascalInteger];


 ShowContext: PROCEDURE;

 PrintCapsule: PROCEDURE
;

 TokenRecycle: PROCEDURE;

END.