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


DIRECTORY
  PascalBasic,
  PascalWizardFiles;

TexTypes: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles;
--11:--MemMax: PascalInteger =65000;
MemMin: PascalInteger =0;
BufSize: PascalInteger =7500;
ErrorLine: PascalInteger =64;

HalfErrorLine: PascalInteger =32;
MaxPrintLine: PascalInteger =30000;
StackSize: PascalInteger =200;
MaxInOpen: PascalInteger =6;

FontMax: PascalInteger =100;
FontMemSize: PascalInteger =25000;
ParamSize: PascalInteger =60;
NestSize: PascalInteger =40;

MaxStrings: PascalInteger =4400;
StringVacancies: PascalInteger =15000;
PoolSize: PascalInteger =48000;
SaveSize: PascalInteger =600;

TrieSize: PascalInteger =8000;
DviBufSize: PascalInteger =800;
FileNameSize: PascalInteger =127;
--:11----18:
AsciiCode: TYPE =PascalInteger[0..127];
--:18----25:--EightBits: TYPE =PascalInteger[0..255];

AlphaFile: TYPE =   PascalTextFile;
ByteFile: TYPE =   RECORD[baseFile: PascalFile, element: EightBits ← NULL];
--:25
--38:--PoolPointer: TYPE =PascalInteger[0..PoolSize];
StrNumber: TYPE =PascalInteger[0..MaxStrings];
--:38----101:
Scaled: TYPE =PascalInteger;
NonnegativeInteger: TYPE =PascalInteger;
SmallNumber: TYPE =PascalInteger[0..63];
--:101
--109:--GlueRatio: TYPE =PascalReal;
--:109----113:--Quarterword: TYPE =PascalInteger[0..255];
Halfword: TYPE =PascalInteger[0..65515];

TwoChoices: TYPE ={C1of2,C2of2};
FourChoices: TYPE ={C1of4,C2of4,C3of4,C4of4};

TwoHalves: TYPE =  -- PACKED -- RECORD [ Rh:Halfword,
  x1: SELECT OVERLAID TwoChoices  FROM C1of2=>[Lh:Halfword],C2of2=>[B0:Quarterword,
B1:Quarterword], ENDCASE];
FourQuarters: TYPE =  -- PACKED -- RECORD [ B0:Quarterword,
B1:Quarterword,B2:Quarterword,B3:Quarterword];

MemoryWord: TYPE =RECORD [   x1: SELECT OVERLAID FourChoices  FROM C1of4=>[Int:PascalInteger],
C2of4=>[Gr:GlueRatio],C3of4=>[Hh:TwoHalves],C4of4=>[Qqqq:FourQuarters]
, ENDCASE];
WordFile: TYPE =  RECORD[baseFile: PascalFile, element: MemoryWord ← NULL];
--:113----150:--GlueOrd: TYPE =PascalInteger[0..3];
--:150----212:
ListStateRecord: TYPE =RECORD [ ModeField:PascalInteger[-201..201],
HeadField,TailField:Halfword,PgField,AuxField,MlField:PascalInteger];

--:212----269:--GroupCode: TYPE =PascalInteger[0..16];
--:269----300:
InStateRecord: TYPE =RECORD [ StateField,IndexField:Quarterword,
StartField,LocField,LimitField,NameField:Halfword];
--:300----548:
InternalFontNumber: TYPE =PascalInteger[0..FontMax];
--:548----594:--DviIndex: TYPE =PascalInteger[0..DviBufSize];

--:594----920:--TriePointer: TYPE =PascalInteger[0..TrieSize];
--:920----925:--HyphPointer: TYPE =PascalInteger[0..307];

--:925----1399:--CedarNat: TYPE =PascalInteger[0..32767];

InitPoolPtr: PoolPointer;

InitStrPtr: StrNumber;

History: PascalInteger[0..3];

UseErrHelp: PascalBoolean;
Free: LONG POINTER TO  PACKED ARRAY PascalInteger[MemMin..MemMax] OF  PascalBoolean;
WasFree: LONG POINTER TO  PACKED ARRAY PascalInteger[MemMin..MemMax] OF  PascalBoolean;

WasMemEnd: Halfword;

WasLoMax: Halfword;

WasHiMin: Halfword;

Panicking: PascalBoolean;

ForceEof: PascalBoolean;

IfLine: PascalInteger;

NameInProgress: PascalBoolean;

LogName: StrNumber;
HyphenChar: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;
SkewChar: LONG POINTER TO ARRAY InternalFontNumber OF  PascalInteger;

PressHOk: PascalBoolean;

AdjustTail: Halfword;

PackBeginLine: PascalInteger;

CurLoop: Halfword;

CurHead: Halfword;

CurTail: Halfword;

PrintedNode: Halfword;

PageMaxDepth: Scaled;

LeastPageCost: PascalInteger;

LastGlue: Halfword;

LastPenalty: PascalInteger;

LastKern: Scaled;

InsertPenalties: PascalInteger;

AfterToken: Halfword;

LongHelpSeen: PascalBoolean;

Error9998: ERROR;

Error9999: ERROR;

END.