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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  TexTypes;

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

TfmFile: ByteFile;
FontInfo: LONG POINTER TO ARRAY PascalInteger[0..FontMemSize] OF  MemoryWord;

FmemPtr: PascalInteger[0..FontMemSize];

FontPtr: InternalFontNumber;
FontCheck: LONG POINTER TO ARRAY InternalFontNumber OF  FourQuarters;
FontSize: LONG POINTER TO ARRAY InternalFontNumber OF  Scaled;
FontDsize: LONG POINTER TO ARRAY InternalFontNumber OF  Scaled;
FontParams: LONG POINTER TO ARRAY InternalFontNumber OF  Halfword;
FontName: LONG POINTER TO ARRAY InternalFontNumber OF  StrNumber;
FontArea: LONG POINTER TO ARRAY InternalFontNumber OF  StrNumber;
FontBc: LONG POINTER TO ARRAY InternalFontNumber OF  EightBits;
FontEc: LONG POINTER TO ARRAY InternalFontNumber OF  EightBits;
FontGlue: LONG POINTER TO ARRAY InternalFontNumber OF  Halfword;
FontUsed: LONG POINTER TO ARRAY InternalFontNumber OF  PascalBoolean;
FontFamily: LONG POINTER TO ARRAY InternalFontNumber OF  StrNumber;
FontFace: LONG POINTER TO ARRAY InternalFontNumber OF  EightBits;
FontPypeCode: LONG POINTER TO ARRAY InternalFontNumber OF  CedarNat;
CharBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
WidthBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
HeightBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
DepthBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
ItalicBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
LigKernBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
KernBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
ExtenBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
ParamBase: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;

NullCharacter: FourQuarters;

CurS: PascalInteger;
TotalStretch: LONG POINTER TO ARRAY GlueOrd OF  Scaled;
TotalShrink: LONG POINTER TO ARRAY GlueOrd OF  Scaled;

EmptyField: TwoHalves;

NullDelimiter: FourQuarters;

CurMlist: Halfword;

CurStyle: SmallNumber;

CurSize: SmallNumber;

CurMu: Scaled;

MlistPenalties: PascalBoolean;

CurF: InternalFontNumber;

CurC: Quarterword;

CurI: FourQuarters;

MagicOffset: PascalInteger;

CurAlign: Halfword;

CurSpan: Halfword;

AlignPtr: Halfword;

JustBox: Halfword;

 PrintSize: PROCEDURE[S: PascalInteger]
;

 PrintFamAndChar: PROCEDURE[P: Halfword];

 PrintDelimiter: PROCEDURE[P: Halfword];

 PrintSubsidiaryData: PROCEDURE[P: Halfword,
C: AsciiCode]
;

 PrintStyle: PROCEDURE[C: PascalInteger];

 ScanRuleSpec: PROCEDURE RETURNS[ScanRuleSpecResult: Halfword];

 ScanSpec: PROCEDURE;

 Hpack: PROCEDURE[P: Halfword,W: Scaled,M: SmallNumber] RETURNS[HpackResult: Halfword]
;

 Vpackage: PROCEDURE[P: Halfword,H: Scaled,M: SmallNumber,L: Scaled] RETURNS[VpackageResult: Halfword]
;

 AppendToVlist: PROCEDURE[B: Halfword];

 NewNoad: PROCEDURE RETURNS[NewNoadResult: Halfword];

--688:-- NewStyle: PROCEDURE[S: SmallNumber] RETURNS[NewStyleResult: Halfword];

 NewChoice: PROCEDURE RETURNS[NewChoiceResult: Halfword];

 ShowInfo: PROCEDURE;

 CharBox: PROCEDURE[F: InternalFontNumber,C: Quarterword] RETURNS[CharBoxResult: Halfword]
;

--711:-- StackIntoBox: PROCEDURE[B: Halfword,F: InternalFontNumber,
C: Quarterword];

 HeightPlusDepth: PROCEDURE[F: InternalFontNumber,C: Quarterword] RETURNS[HeightPlusDepthResult: Scaled]
;

 VarDelimiter: PROCEDURE[D: Halfword,S: SmallNumber,V: Scaled] RETURNS[VarDelimiterResult: Halfword]
;

 Rebox: PROCEDURE[B: Halfword,W: Scaled] RETURNS[ReboxResult: Halfword];

 FlushMath: PROCEDURE
;


 CleanBox: PROCEDURE[P: Halfword,S: SmallNumber] RETURNS[CleanBoxResult: Halfword];

 Fetch: PROCEDURE[A: Halfword]
;

--762:-- MakeLeftRight: PROCEDURE[Q: Halfword,Style: SmallNumber,
MaxD,MaxH: Scaled] RETURNS[MakeLeftRightResult: SmallNumber];

 PushAlignment: PROCEDURE
;

 PopAlignment: PROCEDURE;

 GetPreambleToken: PROCEDURE;

 InitAlign: PROCEDURE
;

 InitSpan: PROCEDURE[P: Halfword]
;

--:787-- InitRow: PROCEDURE;

 InitCol: PROCEDURE
;

 FinCol: PROCEDURE RETURNS[FinColResult: PascalBoolean];

--:791----799:-- FinRow: PROCEDURE;


 FinAlign: PROCEDURE;

 AlignPeek: PROCEDURE;

 AlignError: PROCEDURE;

 NoAlignError: PROCEDURE
;

 OmitError: PROCEDURE;

 DoEndv: PROCEDURE;

 CsError: PROCEDURE;

END.