-- DOutput.Mesa  Edited by Bruce on July 22, 1980  1:32 PM 

DIRECTORY
  DebugFormat USING [LongSubString, NumberFormat],
  Strings USING [String, SubString],
  MachineDefs USING [SHandle];

DOutput: DEFINITIONS =
  BEGIN

  NewLine: PROCEDURE RETURNS [BOOLEAN];
  EOL: PROCEDURE;
  Blanks: PROCEDURE [n: CARDINAL];

  Char: PROCEDURE [c: CHARACTER];
  Text: PROCEDURE [s: Strings.String];
  Line: PROCEDURE [s: Strings.String];
  SubString: PROCEDURE [ss: Strings.SubString];
  LongSubString: PROCEDURE [ss: DebugFormat.LongSubString];

  -- numerical output formatting

  Number: PROCEDURE [n: UNSPECIFIED, f: DebugFormat.NumberFormat];
  Octal: PROCEDURE [n: UNSPECIFIED];
  Decimal: PROCEDURE [n: INTEGER];

  LongNumber: PROCEDURE [n: LONG UNSPECIFIED, f: DebugFormat.NumberFormat];
  LongOctal: PROCEDURE [n: LONG UNSPECIFIED];
  LongDecimal: PROCEDURE [n: LONG INTEGER];

  -- for ComData's error stream

  Put: PRIVATE PROC [MachineDefs.SHandle, UNSPECIFIED];

  END.