Copyright © 1985 by XebOx Corporation. All rights reserved.

MKaplan, September 13, 1985 2:50:06 pm PDT

Rope USING [ROPE],

IO USING [Value];

Close: PROC;

OpenTempFile: PROC;

CloseTempFile: PROC;

ReopenTempFile: PROC;

GetTempFileChar: PROC RETURNS [c: CHAR];

GetIndex: PROC RETURNS [INT];

PutF: PROC [format: Rope.ROPE ← NIL, v1, v2, v3, v4, v5: IO.Value ← [null[]]];

PutBlock: PROC [block: REF READONLY TEXT, startIndex: NAT ← 0, count: NAT ← NAT.LAST];

OpenTiogaOutput: PROC [fileName: Rope.ROPE];

WriteTiogaOutputFile: PROC;

WriteTiogaRope: PROC [rope: Rope.ROPE, lookChars: Rope.ROPE, comment: BOOL ← FALSE];

Writes out the current node with the deltaLevel, attaching properties previously set with WriteTiogaProp, and the format.

TiogaDeltaLevel: PROC [d: INT];

Adds a property to the property list attached to the node on the next call to TiogaDeltaLevel.

WriteTiogaProp: PROC [prop: ATOM, value: Rope.ROPE];

Sets the format of the current node (written at next call to TiogaDeltaLevel).

WriteTiogaFormat: PROC [format: ATOM];