<> <> <> <> DIRECTORY IO USING [STREAM], Rope USING [ROPE]; WalnutParseMsg: CEDAR DEFINITIONS = BEGIN OPEN IO, Rope; <> Qualification: TYPE = {unqualified, dotQualified, arpaQualified}; MessageFieldIndex: TYPE = { -- order is significant replyToF, senderF, fromF, toF, ccF, cF, bccF, dateF, subjectF, categoriesF, inReplyToF, voiceF}; MessageFType: TYPE = {simpleRope, rCatList, rNameList}; MessageInfo: TYPE = RECORD[name: ROPE, fType: MessageFType]; messageParseArray: ARRAY MessageFieldIndex OF MessageInfo; ParseStatus: TYPE = {ok, syntaxError}; SendParseStatus: TYPE = {ok, pdlNotFound, pdlSyntaxError, includesPublicDL, includesPrivateDL, fieldNotAllowed, syntaxError }; <> MsgHeaders: TYPE = LIST OF MsgHeaderItem; MsgHeaderItem: TYPE = RECORD[fieldName, value: ROPE]; ParseProc: TYPE = PROC[fieldName: ROPE] RETURNS[wantThisOne, continue: BOOL]; ParseMsgFromStream: PROC[strm: STREAM, len: INT, proc: ParseProc] RETURNS[msgHeaders: MsgHeaders]; <> ParseHeadersFromRope: PROC[headers: ROPE, proc: ParseProc] RETURNS[msgHeaders: MsgHeaders]; <> Parse: PROC[text: ROPE] RETURNS[status: SendParseStatus, sPos, mPos: INT, rList: LIST OF ROPE]; CanonicalName: PROC[simpleName, registry: ROPE] RETURNS[name: ROPE]; END.