<> <> <> <> <> 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.