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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  TexTypes;

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

--:1345----1400:
 ResetTermIn: PROCEDURE[ F: LONG POINTER TO AlphaFile];


 RewriteTermOut: PROCEDURE[ F: LONG POINTER TO AlphaFile];


 ProfileAsksForPress: PROCEDURE RETURNS[ProfileAsksForPressResult: PascalBoolean];


 PressOpenOut: PROCEDURE RETURNS[PressOpenOutResult: PascalBoolean];


 ReadTheClock: PROCEDURE[ Ttime,Dday,Mmonth,Yyear: LONG POINTER TO PascalInteger];


 FileGetPos: PROCEDURE[ F: LONG POINTER TO AlphaFile] RETURNS[FileGetPosResult: PascalInteger];


 SetPoolName: PROCEDURE;

 ReadProfileForDirectories: PROCEDURE
;

 SetNormalPriority: PROCEDURE;


 SetBackgroundPriority: PROCEDURE;


 StuffOnCmdLine: PROCEDURE RETURNS[StuffOnCmdLineResult: PascalInteger];

--:4----27:-- AOpenIn: PROCEDURE[ F: LONG POINTER TO AlphaFile] RETURNS[AOpenInResult: PascalBoolean];


 AOpenOut: PROCEDURE[ F: LONG POINTER TO AlphaFile] RETURNS[AOpenOutResult: PascalBoolean];


 BOpenIn: PROCEDURE[ F: LONG POINTER TO ByteFile] RETURNS[BOpenInResult: PascalBoolean];


 BOpenOut: PROCEDURE[ F: LONG POINTER TO ByteFile] RETURNS[BOpenOutResult: PascalBoolean];


 WOpenIn: PROCEDURE[ F: LONG POINTER TO WordFile] RETURNS[WOpenInResult: PascalBoolean];


 WOpenOut: PROCEDURE[ F: LONG POINTER TO WordFile] RETURNS[WOpenOutResult: PascalBoolean];

--:27----28:
 AClose: PROCEDURE[ F: LONG POINTER TO AlphaFile];


 BClose: PROCEDURE[ F: LONG POINTER TO ByteFile];


 WClose: PROCEDURE[ F: LONG POINTER TO WordFile];

--:519----523:-- PackBufferedName: PROCEDURE[A,B: PascalInteger];


 PackDefaultArea: PROCEDURE[A,B: PascalInteger];


 PackAllDefault: PROCEDURE;

 AMakeNameString: PROCEDURE[ F: LONG POINTER TO AlphaFile] RETURNS[AMakeNameStringResult: StrNumber];


 BMakeNameString: PROCEDURE[ F: LONG POINTER TO ByteFile] RETURNS[BMakeNameStringResult: StrNumber];


 WMakeNameString: PROCEDURE[ F: LONG POINTER TO WordFile] RETURNS[WMakeNameStringResult: StrNumber];


 PressMakeNameString: PROCEDURE RETURNS[PressMakeNameStringResult: StrNumber];

--:582----597:-- WriteDvi: PROCEDURE[A,B: DviIndex];

--1378:-- GetPypeCode: PROCEDURE[F: InternalFontNumber,
AtSizeInHnm: PascalInteger] RETURNS[GetPypeCodeResult: CedarNat];


 PressSetFont: PROCEDURE[C: CedarNat];


 PressShowRule: PROCEDURE[Xstart,Ystart,Xlen,Ylen: Scaled];


 FlushPype: PROCEDURE;

 PressWritePage: PROCEDURE;


 PressCloseFile: PROCEDURE;

END.