-- PPCommentTable.mesa, definitions for the comment table
-- last edit by Russ Atkinson, 29-May-81 16:54:04

DIRECTORY
  Rope USING [Ref];
  
PPCommentTable: DEFINITIONS = BEGIN

  Index: TYPE = LONG INTEGER;
  Ref:   TYPE = REF Node;
  Node:  TYPE;

  Text: TYPE = Rope.Ref;

  TableOverflow: ERROR;
  TableOrder: ERROR;

  Reset: PROC;

  AddComment: PROC [start: Index, text: Text, lastToken,prefix: Index];

  AddBreakHint: PROC [index: Index];

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

  TestBreakHint: PROC [start: Index, next: Index] RETURNS [BOOLEAN];

  Explode: PROC [ref: Ref]
    RETURNS [start: Index, text: Text, lastToken,prefix: Index];

  SetEnding: PROC [end: Index];

  GetEnding: PROC RETURNS [Index];

  END.