
<<IntelHex.mesa>>
<<Last Modified: Stewart,  April 25, 1983 3:35 pm>>

IntelHex: CEDAR DEFINITIONS =
BEGIN

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