<> <> <> <> DIRECTORY ; StringSequence: CEDAR DEFINITIONS = BEGIN <<>> <> learSieglerStringLength: CARDINAL = 80; <> Handle: TYPE = REF Object; Object: TYPE = RECORD [SEQUENCE length: CARDINAL OF REF TEXT]; <> Create: PROCEDURE [sequenceLength, stringLength: CARDINAL] RETURNS [sequence: Handle]; Delete: PROCEDURE [sequence: Handle]; Null: PROCEDURE [sequence: Handle]; END. LOG When / Who / What. 29-Mar-82/Claude Pany/Created. 19-Jul-85 1:30:44 - Strickberger - Add copyright. FixArrows.