-- PPCommentTable.mesa, definitions for the comment table
-- Russ Atkinson, June 8, 1982 3:08 pm

-- this cluster provides a source index to comment map
-- it is used to retain enough information for pretty printing source text

DIRECTORY
Rope USING [ROPE];

PPCommentTable: CEDAR DEFINITIONS = BEGIN OPEN Rope;

Ref: TYPE = REF Node;
Node: TYPE;

TableOverflow: ERROR;
TableOrder: ERROR;

Reset: PROC;

AddComment: PROC [start: INT, text: ROPE, lastToken,prefix: INT];

AddBreakHint: PROC [index: INT];

FindNextComment: PROC [notBefore: INT] RETURNS [Ref];

TestBreakHint: PROC [start: INT, next: INT] RETURNS [BOOL];

Explode: PROC [ref: Ref]
RETURNS [start: INT, text: ROPE, lastToken,prefix: INT];

SetEnding: PROC [end: INT];

GetEnding: PROC RETURNS [INT];

END.