
<<File: PeanutParse.mesa>>

DIRECTORY
Rope;

PeanutParse: CEDAR DEFINITIONS =

BEGIN

<<Global types>>

ROPE: TYPE = Rope.ROPE;

Name: TYPE = REF NameRecord;
NameRecord: TYPE = RECORD [simpleName, registry, arpaHost: ROPE_ NIL];

Qualification: TYPE = {unqualified, dotQualified, arpaQualified};
MessageFieldIndex: TYPE = {            -- order is significant
replyToF, senderF, fromF, toF, ccF, cF, bccF, dateF, subjectF, categoriesF, inReplyToF}; 

MessageFType: TYPE = {simpleRope, rCatList, rNameList};
MessageInfo: TYPE = RECORD[name: ROPE, fType: MessageFType];

messageParseArray: ARRAY MessageFieldIndex OF MessageInfo;

ParseStatus: TYPE = {ok, syntaxError};

CanonicalName:
PROC[simpleName, registry: ROPE] RETURNS[name: ROPE];

END.