PeanutParse.mesa
Copyright Ó 1985, 1992 by Xerox Corporation. All rights reserved.
Doug Wyatt, March 7, 1985 11:25:02 am PST
Willie-Sue, May 2, 1989 3:22:03 pm PDT
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.