CoreSequence.mesa 
Copyright © 1985 by Xerox Corporation. All rights reserved.
Barth, January 28, 1986 3:37:55 pm PST
Serlet, July 11, 1985 3:49:37 pm PDT
Bertrand Serlet March 4, 1986 1:37:17 pm PST
DIRECTORY Core;
CoreSequence: CEDAR DEFINITIONS = BEGIN OPEN Core;
Theory
This interface describes the structuring mechanism which takes a collection of cell instances of identical type and binds them together.
Practice
sequenceCellClass: CellClass;
SequenceCellType: TYPE = REF SequenceCellTypeRec;
SequenceCellTypeRec: TYPE = RECORD [
base: CellType,
count: NAT,
sequence: SequenceSet ← NIL,
flatSequence: SequenceSet ← NIL];
SequenceSet: TYPE = REF SequenceSetRec;
SequenceSetRec: TYPE = RECORD[set: SEQUENCE length: NAT OF NAT];
Create: PROC [args: SequenceCellType, name: ROPE ← NIL, props: Properties ← NIL] RETURNS [cellType: CellType];
Print: PROC [cell: SequenceCellType, out: STREAM ← NIL];
END.