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;
endIPForm: NAT ~ 1000;
Frame: TYPE ~ REF FrameRep;
FrameRep: TYPE ~ RECORD [size: NAT, entries: SEQUENCE max: NAT OF REF];
END.