-- file: OutputDefs.mesa
-- last edited by Bruce on July 8, 1980  8:36 AM
-- last edited by Lewis on  9-Dec-80 10:14:41
-- last edited by Satterthwaite on August 13, 1982 2:36 pm

DIRECTORY
  Format: TYPE USING [NumberFormat],
  LongString: TYPE USING [SubString],
  Streams: TYPE USING [Handle],
  String: TYPE USING [SubString],
  Time: TYPE USING [Packed];

OutputDefs: DEFINITIONS = {
  
  outStream: Streams.Handle;
  
  PutTab: PROC;
  PutCR: PROC;
  PutChar: PROC [c: CHAR];
  PutString: PROC [s: STRING];
  PutLongString: PROC [s: LONG STRING];
  PutSubString: PROC [s: String.SubString];
  PutLongSubString: PROC [s: LongString.SubString];
  PutTime: PROC [t: Time.Packed];
  
  OpenOutput: PROC [root: STRING, ext: STRING];
  CloseOutput: PROC;
  
  GetOutputStream: PROC RETURNS [Streams.Handle];
  
  -- numbers
  
  NumberFormat: TYPE = Format.NumberFormat;
  
  PutOctal: PROC [val: UNSPECIFIED];
  PutDecimal: PROC [val: CARDINAL];
  PutNumber: PROC [val: CARDINAL, format: Format.NumberFormat];
  
  }.