RESOut:
CEDAR DEFINITIONS =
BEGIN
Handle: TYPE = REF ANY;
ROPE: TYPE = Rope.ROPE;
NumberFormat:
TYPE =
RECORD [
base: CARDINAL ← 10, zerofill: BOOL ← FALSE, unsigned: BOOL ← TRUE,
columns: CARDINAL ← 0];
Complain: PROC [h: Handle, msg: ROPE, abort, clear: BOOLEAN ← TRUE];
cancelAction: ERROR [endLine: BOOLEAN ← FALSE];
PRope: PROC [h: Handle, s: ROPE];
PChar: PROC [h: Handle, c: CHARACTER];
PSubString: PROC [h: Handle, ss: ConvertUnsafe.SubString];
PDecimal: PROC [h: Handle, i: INTEGER];
PUnsigned: PROC [h: Handle, i: CARDINAL];
POctal: PROC [h: Handle, i: UNSPECIFIED];
PNil: PROC [h: Handle, p: POINTER];
PLongNil: PROC [h: Handle, p: LONG POINTER];
PNumber: PROC [h: Handle, num: UNSPECIFIED, format: NumberFormat];
PLongNumber: PROC [h: Handle, num: LONG UNSPECIFIED, format: NumberFormat];
PLongOctal: PROC [h: Handle, lu: LONG UNSPECIFIED];
PCr: PROC [h: Handle];
PNull: PROC [h: Handle, val, null: UNSPECIFIED];
PNext: PROC [h: Handle, s: ROPE, extra: CARDINAL ← 0, indent: CARDINAL ← 2];
PNextNull:
PROC [
h: Handle, s: ROPE, val, null: UNSPECIFIED, indent: CARDINAL ← 2];
PNextNil: PROC [h: Handle, lbl: ROPE, p: POINTER, indent: CARDINAL ← 2];
PNextLongNil: PROC [h: Handle, lbl: ROPE, p: LONG POINTER, indent: CARDINAL ← 2];
PNextUnsigned: PROC [h: Handle, s: ROPE, num: UNSPECIFIED, indent: CARDINAL ← 2];
PNextOctal: PROC [h: Handle, s: ROPE, num: UNSPECIFIED, indent: CARDINAL ← 2];
PNextLong: PROC [h: Handle, s: ROPE, num: LONG INTEGER, indent: CARDINAL ← 2];
PNextLongOctal:
PROC [
h: Handle, s: ROPE, num: LONG UNSPECIFIED, indent: CARDINAL ← 2];
Log10: PROC [CARDINAL] RETURNS [CARDINAL];
Log8: PROC [CARDINAL] RETURNS [CARDINAL];
LongLog10: PROC [LONG CARDINAL] RETURNS [CARDINAL];
LongLog8: PROC [LONG CARDINAL] RETURNS [CARDINAL];
MakeRoom: PROC [h: Handle, chars, indent: CARDINAL] RETURNS [was: BOOLEAN];
END.