-- 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.