ImagerInterpressPrivate.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Doug Wyatt, October 31, 1986 10:07:31 am PST
DIRECTORY
Imager USING [Context],
IO USING [STREAM];
ImagerInterpressPrivate: CEDAR DEFINITIONS
~ BEGIN
Ref: TYPE ~ REF Rep;
Rep:
TYPE ~
RECORD[
page: INT ← 0,
context: Imager.Context ← NIL,
data: Data ← NIL
];
Data: TYPE ~ REF DataRep;
DataRep:
TYPE ~
RECORD[
stream: IO.STREAM,
frame: Frame ← NIL,
buffer: REF TEXT ← NIL,
getTDone: BOOL ← FALSE,
getTForm: NAT ← firstIPForm,
savedSize: NAT ← 0
];
firstIPForm: NAT ~ 100;
Frame: TYPE ~ REF FrameRep;
FrameRep:
TYPE ~
RECORD [size:
NAT, entries:
SEQUENCE max:
NAT
OF
REF];
END.