DIRECTORY Core; CoreSequence: CEDAR DEFINITIONS = BEGIN OPEN Core; 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. jCoreSequence.mesa Copyright c 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 Theory This interface describes the structuring mechanism which takes a collection of cell instances of identical type and binds them together. Practice Êa˜– "Cedar" stylešœ™Icode– "Cedar" stylešœ Ïmœ1™