|
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 |