Copyright © 1985 by Xerox Corporation. All rights reserved.

last edit by Satterthwaite, May 12, 1986 11:45:45 am PDT

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

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];

}.