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. δStringSequenceImpl.mesa Copyright Σ Xerox Corporation 1982, 1983, 1984, 1985, 1986, 1987. All rights reserved. last edited by Strickberger 19-Jul-85 1:33:50 Tim Diebert: January 6, 1987 2:40:32 pm PST PUBLIC PROCEDUREs: Κ‹˜codešœ™KšœV™VKšœ.™.K™+—K˜K˜šΟk ˜ Kšœœ˜&—K˜šΟnœœ˜!Kšœ˜K™Kšœ™—˜š žœœ œ œœ$˜sKšœ œ(˜6š œœœœœ˜7Kšœœœœ˜/—Kšœ ˜Kšœ˜——˜šžœœ œ$˜BKš œœœœœœ˜HKšœ œ˜Kšœ˜——˜šžœœ œ$˜@Kš œœœœœ˜MKšœ˜—K˜Kšœ˜—K˜Kš˜K˜K˜K˜=K˜—…—TΓ