-- file: TexMath.mesa
-- Pascal-to-Mesa translator output, translated at September 27, 1985 10:21:36 am PDT


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  TexTypes;

TexMath: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles, TexTypes;

--704:-- FractionRule: PROCEDURE[T: Scaled] RETURNS[FractionRuleResult: Halfword];

--:704----705:-- Overbar: PROCEDURE[B: Halfword,K,T: Scaled] RETURNS[OverbarResult: Halfword]
;

--:715----716:-- MathGlue: PROCEDURE[G: Halfword,M: Scaled] RETURNS[MathGlueResult: Halfword]
;

--:716----717:-- MathKern: PROCEDURE[P: Halfword,M: Scaled];

 MakeOver: PROCEDURE[Q: Halfword]
;

--735:-- MakeUnder: PROCEDURE[Q: Halfword];

 MakeVcenter: PROCEDURE[Q: Halfword];

 MakeRadical: PROCEDURE[Q: Halfword];

 MakeMathAccent: PROCEDURE[Q: Halfword];

 MakeFraction: PROCEDURE[Q: Halfword];

 MakeOp: PROCEDURE[Q: Halfword] RETURNS[MakeOpResult: Scaled];

 MakeOrd: PROCEDURE[Q: Halfword];

 MakeScripts: PROCEDURE[Q: Halfword,Delta: Scaled];

--:718----720:-- MlistToHlist: PROCEDURE;

 PushMath: PROCEDURE[C: GroupCode]
;

 InitMath: PROCEDURE
;

 StartEqNo: PROCEDURE
;

 ScanMath: PROCEDURE[P: Halfword]
;

--1155:-- SetMathChar: PROCEDURE[C: PascalInteger];

--1159:-- MathLimitSwitch: PROCEDURE;

 ScanDelimiter: PROCEDURE[P: Halfword,R: PascalBoolean]
;

 MathRadical: PROCEDURE
;

 MathAc: PROCEDURE
;

 AppendChoices: PROCEDURE
;

 FinMlist: PROCEDURE[P: Halfword] RETURNS[FinMlistResult: Halfword];

 BuildChoices: PROCEDURE;

 SubSup: PROCEDURE
;

 MathFraction: PROCEDURE
;

 MathLeftRight: PROCEDURE;

 AfterMath: PROCEDURE;

END.