|
|
| Stacks.od |
TYPE Stack = POINTER TO StackRec; StackRec = RECORD (Objects.ObjectRec) END; Element = Objects.Object; |
| Stacks.om |
TYPE
Stack = POINTER TO StackRec;
LinkedNode = POINTER TO LinkedNodeRec;
StackRec =
RECORD
(Objects.ObjectRec)
top: LinkedNode;
length: INTEGER;
END;
Element = Objects.Object;
LinkedNodeRec =
RECORD
next: LinkedNode;
element: Element;
END;
|
![]() | Grundsätzlich ist es üblich, Schnittstellen minimal
zu halten.
|
![]() | Dies ist auch bei der Veröffentlichung von Record-Typen
möglich. In der Schnittstelle können -- im Vergleich
zur Implementierung -- weniger (möglicherweise
auch gar keine) Komponenten veröffentlicht werden.
|
![]() | Dies verhindert effektiv den Zugriff externer Module
auf die internen Datenstrukturen einer Implementierung.
|
|
| Copyright © 1999 Andreas Borchert, in HTML konvertiert am 29.06.1999 |