XMesaCmplr24DefsB:
DEFINITIONS = {
Byte: TYPE = BYTE;
Bytes: TYPE = POINTER TO ByteSequence;
ReadOnlyBytes: TYPE = POINTER TO READONLY ByteSequence;
ByteSequence:
TYPE =
RECORD [
PACKED SEQUENCE COMPUTED CARD16 OF Byte];
Reader: TYPE = POINTER TO ReaderBody;
ReaderBody:
TYPE =
PRIVATE
RECORD [
context: Context,
limit: CARDINAL,
offset: CARDINAL,
bytes: ReadOnlyBytes];
Context:
TYPE =
MSBIT
WORD16
MACHINE
DEPENDENT
RECORD [
suffixSize(0): [1..2],
homogeneous(1:0..7): BOOLEAN,
prefix(1:8..15): BYTE];
}.