-- 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
-- Copyright  Xerox Corporation 1979, 1980

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

OutputDefs: DEFINITIONS =
  BEGIN
  
  outStream: Streams.Handle;
  
  PutTab: PROC;
  PutCR: PROC;
  PutChar: PROC [c: CHARACTER];
  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];
  
  END.