<<>> <> <> <> <> <<>> DIRECTORY Rope USING [ROPE]; PeanutParse: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; MessageFieldIndex: TYPE = {replyToF, senderF, fromF, toF, ccF, cF, bccF, dateF, subjectF, categoriesF, inReplyToF, voiceF}; -- order is significant MessageFType: TYPE = {simpleRope, rCatList, rNameList}; MessageInfo: TYPE = RECORD[name: ROPE, fType: MessageFType]; messageParseArray: ARRAY MessageFieldIndex OF MessageInfo; ParseStatus: TYPE = {ok, syntaxError}; END.