-- file: OutputDefs.mesa, Bruce July 8, 1980  8:36 AM
-- Copyright  Xerox Corporation 1979, 1980

DIRECTORY
  IODefs USING [NumberFormat],
  StreamDefs USING [StreamHandle],
  StringDefs USING [SubString];

OutputDefs: DEFINITIONS =
  BEGIN
  
  outStream: StreamDefs.StreamHandle;
  
  PutTab: PROCEDURE;
  PutCR: PROCEDURE;
  PutChar: PROCEDURE [c: CHARACTER];
  PutString: PROCEDURE [s: STRING];
  PutSubString: PROCEDURE [s: StringDefs.SubString];
  PutTime: PROCEDURE [t: LONG CARDINAL];
  OpenOutput: PROCEDURE [root: STRING, ext: STRING];
  CloseOutput: PROCEDURE;
  GetOutputStream: PROCEDURE RETURNS [StreamDefs.StreamHandle];
  
  -- numbers
  
  NumberFormat: TYPE = IODefs.NumberFormat;
  PutOctal: PROCEDURE [val: UNSPECIFIED];
  PutDecimal: PROCEDURE [val: CARDINAL];
  PutNumber: PROCEDURE [val: CARDINAL, format: NumberFormat];
  
  END...