EndOfProc: TYPE = PROC RETURNS [BOOLEAN];
GetByteProc: TYPE = PROC RETURNS [CARDINAL];
GetPositionProc: TYPE = PROC RETURNS [INT];
SetPositionProc: TYPE = PROC [p: INT];
IStream:
TYPE =
RECORD [
endof: EndOfProc,
get: GetByteProc,
GetPosition: GetPositionProc,
SetPosition: SetPositionProc
];
PutEndRecordProc: TYPE = PROC;
PutStartRecordProc: TYPE = PROC [frame, bytepos: CARDINAL];
DataByteProc: TYPE = PROC [adr: LONG CARDINAL, d: CARDINAL];
OStream:
TYPE =
RECORD [
PutEndRecord: PutEndRecordProc,
PutStartRecord: PutStartRecordProc,
DataByte: DataByteProc
];
PutCharProc: TYPE = PROC [c: CHARACTER];
ProcessFile:
PROC [in: IStream, out: OStream, errs: PutCharProc]
RETURNS [success: BOOLEAN];
END.
1-Jan-82 19:43:25, L. Stewart, created
April 25, 1983 3:35 pm, LCS, CEDAR & Tioga