Object <- CountStream |
|
|
Write |
|
Length |
| Field | Type | |
|---|---|---|
| Stream: | target: | Object |
| CountStream: | length: | Unsigned |
instance CountStream tag; target: nilObject; length: 0; end instance;
Define Class CountStream; inherits from Object, Stream; field length: Unsigned, getter, setter; overrides Write; // overrides to track the number of bytes written, but does not call inherited attribute Length: Unsigned; // get/set bytes written by accessing this value end class;