Eine Abstraktion für Stapel

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

Stacks.od
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.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 29.06.1999