|
DEFINITION Stacks; IMPORT Objects; TYPE Stack = POINTER TO StackRec; StackRec = RECORD (Objects.ObjectRec) END; Element = Objects.Object; PROCEDURE Create(VAR stack: Stack); PROCEDURE AddElement(stack: Stack; element: Element); PROCEDURE RemoveElement(stack: Stack); PROCEDURE GetCurrentElement(stack: Stack; VAR element: Element); PROCEDURE Length(stack: Stack) : INTEGER; END Stacks. |
So könnte eine Abstraktion für heterogene Stapel
aussehen, die mit beliebigen Erweiterungen von
Objects.Object gefüllt werden kann.
|
Copyright © 1999, 2004 Andreas F. Borchert, in HTML konvertiert am 28.01.2005 |