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
DIRECTORY
StringSequence USING [Handle, Object];
StringSequenceImpl:
CEDAR
PROGRAM
EXPORTS StringSequence = BEGIN
PUBLIC PROCEDUREs:
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.