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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  TexTypes;

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

TotalPages: PascalInteger;

MaxV: Scaled;

MaxH: Scaled;

MaxPush: PascalInteger;

LastBop: PascalInteger;

DeadCycles: PascalInteger;

DoingLeaders: PascalBoolean;

C: Quarterword;

F: Quarterword;

RuleHt: Scaled;

RuleDp: Scaled;

RuleWd: Scaled;

G: Halfword;

Lq: PascalInteger;

Lr: PascalInteger;

--:942----968:-- PrunePageTop: PROCEDURE[P: Halfword] RETURNS[PrunePageTopResult: Halfword]
;

--970:-- VertBreak: PROCEDURE[P: Halfword,H,D: Scaled] RETURNS[VertBreakResult: Halfword]
;

 Vsplit: PROCEDURE[N: EightBits,
H: Scaled] RETURNS[VsplitResult: Halfword];

 PrintTotals: PROCEDURE;

 FreezePageSpecs: PROCEDURE[S: SmallNumber]
;

 BoxError: PROCEDURE[N: EightBits];

--993:-- EnsureVbox: PROCEDURE[N: EightBits];

--994:----1012:-- FireUp: PROCEDURE[C: Halfword];

 BuildPage: PROCEDURE;

 AppSpace: PROCEDURE
;

 InsertDollarSign: PROCEDURE
;

 YouCant: PROCEDURE
;

 ReportIllegalCase: PROCEDURE;

 Privileged: PROCEDURE RETURNS[PrivilegedResult: PascalBoolean]
;

 ItsAllOver: PROCEDURE RETURNS[ItsAllOverResult: PascalBoolean];

 AppendGlue: PROCEDURE
;

 AppendKern: PROCEDURE;

 OffSave: PROCEDURE
;

 ExtraRightBrace: PROCEDURE;


 NormalParagraph: PROCEDURE;

 BoxEnd: PROCEDURE;

 BeginBox: PROCEDURE;

 ScanBox: PROCEDURE
;

--1086:-- Package: PROCEDURE[C: SmallNumber];

 NewGraf: PROCEDURE[Indented: PascalBoolean];

 IndentInHmode: PROCEDURE;

--1095:-- HeadForVmode: PROCEDURE
;

--1096:-- EndGraf: PROCEDURE
;

 BeginInsertOrAdjust: PROCEDURE
;

 MakeMark: PROCEDURE;

--1103:-- AppendPenalty: PROCEDURE;

 DeleteLast: PROCEDURE;

 Unpackage: PROCEDURE
;

 AppendItalicCorrection: PROCEDURE;

 AppendDiscretionary: PROCEDURE;

--:1117----1119:-- BuildDiscretionary: PROCEDURE;

 MakeAccent: PROCEDURE
;

 HandleRightBrace: PROCEDURE;

END.