-- RESOut.mesa  Edited by Sweet,  May 21, 1980  9:34 AM

DIRECTORY
  IODefs USING [NumberFormat],
  StringDefs USING [SubString],
  Window USING [Handle];

RESOut: DEFINITIONS =
  BEGIN
  WindowsHandle: TYPE = POINTER TO WindowsObject;
  WindowsObject: TYPE = RECORD [
    main, msgSW, formSW, fileSW: Window.Handle];

  Complain: PROCEDURE [msg: STRING, clear: BOOLEAN ← TRUE];
  cancelAction: ERROR [endLine: BOOLEAN ← FALSE];
  PString: PROCEDURE [s: STRING];
  PChar: PROCEDURE [c: CHARACTER];
  PDecimal: PROCEDURE [i: INTEGER];
  PUnsigned: PROCEDURE [i: CARDINAL];
  POctal: PROCEDURE [i: UNSPECIFIED];
  PNumber: PROCEDURE [num: UNSPECIFIED, format: IODefs.NumberFormat];
  PLongNumber: PROCEDURE [num: LONG UNSPECIFIED, format: IODefs.NumberFormat];
  PCr: PROCEDURE;
  PNull: PROCEDURE [val, null: UNSPECIFIED];
  PSubString: PROCEDURE [ss: StringDefs.SubString];
  PNext: PROCEDURE [s: STRING, extra: CARDINAL ← 0, indent: CARDINAL ← 2];
  MakeRoom: PROCEDURE [chars, indent: CARDINAL]
    RETURNS [was: BOOLEAN];
  Log10: PROCEDURE [CARDINAL] RETURNS [CARDINAL];
  Log8: PROCEDURE [CARDINAL] RETURNS [CARDINAL];
  LongLog10: PROCEDURE [LONG CARDINAL] RETURNS [CARDINAL];
  LongLog8: PROCEDURE [LONG CARDINAL] RETURNS [CARDINAL];
  PNextNull: PROCEDURE [
    s: STRING, val, null: UNSPECIFIED, indent: CARDINAL ← 2];
  PNextUnsigned: PROCEDURE [s: STRING, num: UNSPECIFIED, indent: CARDINAL ← 2];
  PNextOctal: PROCEDURE [s: STRING, num: UNSPECIFIED, indent: CARDINAL ← 2];
  PNextLong: PROCEDURE [s: STRING, num: LONG INTEGER, indent: CARDINAL ← 2];
  END.