
<<SMCommentTableOps.mesa>>
<<Copyright  1985 by Xerox Corporation.  All rights reserved.>>
<<last edit by Satterthwaite, May 12, 1986 11:45:45 am PDT>>

DIRECTORY
SMCommentTable: TYPE USING [Index, Text, Ref];

SMCommentTableOps: CEDAR DEFINITIONS~{
OPEN SMCommentTable;

CommentManager: TYPE;
CommentM: TYPE~REF CommentManager;

TableOverflow: ERROR;
TableOrder: ERROR;

Create: PROC[zone: ZONE] RETURNS[CommentM];
Reset: PROC[cm: CommentM];

Add: PROC[cm: CommentM, start: Index, text: Text, lastToken, prefix: Index];

AddBreakHint: PROC[cm: CommentM, index: Index];

FindNext: PROC[cm: CommentM, notBefore: Index] RETURNS[Ref];

TestBreakHint: PROC[cm: CommentM, start: Index, next: Index] RETURNS[BOOL];

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

SetEnding: PROC[cm: CommentM, end: Index];

GetEnding: PROC[cm: CommentM] RETURNS[Index];

}.

