<> <> <> <> DIRECTORY StringSequence USING [Handle, Object]; StringSequenceImpl: CEDAR PROGRAM EXPORTS StringSequence = BEGIN <<>> <> Create: PUBLIC PROCEDURE [sequenceLength, stringLength: CARDINAL] RETURNS [sequence: StringSequence.Handle] = BEGIN sequence _ NEW[StringSequence.Object[sequenceLength]]; FOR i: CARDINAL IN [FIRST[CARDINAL]..sequenceLength) DO sequence[i] _ NEW[TEXT[stringLength]]; ENDLOOP; RETURN[sequence]; END; Delete: PUBLIC PROCEDURE [sequence: StringSequence.Handle] = BEGIN FOR i: CARDINAL IN [0 .. sequence.length) DO sequence[i] _ NIL; ENDLOOP; sequence _ NIL; END; Null: PUBLIC PROCEDURE [sequence: StringSequence.Handle] = BEGIN FOR i: CARDINAL IN [0 .. sequence.length) DO sequence[i].length _ 0; ENDLOOP; END; END. LOG When / Who / What. 29-Mar-82/Claude Pany/Created. 19-Jul-85 1:33:50 - Strickberger - Add copyright. FixArrows.