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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  TexTypes;

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

JobName: StrNumber;

DviFile: ByteFile;

OutputFileName: StrNumber;

--518:-- PrintFileName: PROCEDURE[N,A,E: PascalInteger];

 NormalizeSelector: PROCEDURE;


 Expand: PROCEDURE;

 ScanLeftBrace: PROCEDURE;

 ScanOptionalEquals: PROCEDURE;

--407:-- ScanKeyword: PROCEDURE[S: StrNumber] RETURNS[ScanKeywordResult: PascalBoolean];

 MuError: PROCEDURE
;

--432:-- ScanSevenBitInt: PROCEDURE
;

 ScanEightBitInt: PROCEDURE;

 ScanFourBitInt: PROCEDURE;

 ScanCharNum: PROCEDURE;

 ScanFifteenBitInt: PROCEDURE;

 ScanTwentySevenBitInt: PROCEDURE;

 ScanFontIdent: PROCEDURE;

 FindFontDimen: PROCEDURE[Writing: PascalBoolean];

--413:-- ScanSomethingInternal: PROCEDURE[Level: SmallNumber,
Negative: PascalBoolean];

 ScanInt: PROCEDURE;

 ScanDimen: PROCEDURE[Mu,Inf,Shortcut: PascalBoolean]
;

 ScanGlue: PROCEDURE[Level: SmallNumber];

 TheToks: PROCEDURE RETURNS[TheToksResult: Halfword];

 InsTheToks: PROCEDURE;


 ConvToks: PROCEDURE;

 ScanToks: PROCEDURE[MacroDef,Xpand: PascalBoolean] RETURNS[ScanToksResult: Halfword];

--:473----482:-- ReadToks: PROCEDURE[N: PascalInteger,R: Halfword];

 PassText: PROCEDURE;

 ChangeIfLimit: PROCEDURE[L: SmallNumber,P: Halfword];


 Conditional: PROCEDURE;

 BeginName: PROCEDURE
;

 MoreName: PROCEDURE[C: AsciiCode] RETURNS[MoreNameResult: PascalBoolean]
;

 EndName: PROCEDURE
;

--519:-- PackFileName: PROCEDURE[N,A,E: StrNumber];

--:523----525:
 MakeNameString: PROCEDURE RETURNS[MakeNameStringResult: StrNumber];

--:525----526:
 ScanFileName: PROCEDURE;

 PackJobName: PROCEDURE[S: StrNumber];

--530:-- PromptFileName: PROCEDURE[S,E: StrNumber];

 OpenLogFile: PROCEDURE;

 StartInput: PROCEDURE;

--560:-- ReadFontInfo: PROCEDURE[U: Halfword,Nom,Aire: StrNumber,
S: Scaled] RETURNS[ReadFontInfoResult: InternalFontNumber];

 CharWarning: PROCEDURE[F: InternalFontNumber,C: EightBits]
;

 NewCharacter: PROCEDURE[F: InternalFontNumber,C: EightBits] RETURNS[NewCharacterResult: Halfword]
;

 OpenFmtFile: PROCEDURE RETURNS[OpenFmtFileResult: PascalBoolean];

END.