BlackCherrySidedoor.mesa
Copyright Ó 1990, 1993 by Xerox Corporation. All rights reserved.
Willie-Sue, July 5, 1990 3:36:17 pm PDT
Willie-s, July 20, 1993 3:44 pm PDT
DIRECTORY
IO USING [STREAM],
Rope USING [ROPE];
BlackCherrySidedoor: CEDAR DEFINITIONS ~ {
Constants and types
ROPE: TYPE = Rope.ROPE;
STREAM: TYPE = IO.STREAM;
MsgFromStreamProc: TYPE = PROC RETURNS[msgStream: STREAM, msgID: ROPE, unRead: BOOL, textLen, formatLen: INT];
MsgFromRopesProc: TYPE = PROC RETURNS[msgID, text, formatting: ROPE, unRead: BOOL];
relTocPointerEntryTemplate: READONLY ROPE;
relTocEntriesEntryTemplate: READONLY ROPE;
headerEntryTemplate: READONLY ROPE;
createMsgTemplate: READONLY ROPE;
Exported operations
CreateBCMailLogFromStream: PROC[fileName: ROPE, msgProc: MsgFromStreamProc]
RETURNS [ok: BOOL];
makes a BlackCherry mailLog using fileName; calls msgProc for the next message, which must be the next textLen+formatLen bytes - end of messages is signaled by msgStream = NIL;
CreateBCMailLogFromRopes: PROC[fileName: ROPE, msgProc: MsgFromRopesProc]
RETURNS [ok: BOOL];
makes a BlackCherry mailLog using fileName; calls msgProc for the next message - end of messages is signaled by text = NIL;
}.